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Preface 


This reference manual describes the SPERRY UNIVAC Operating System/3 (OS/3) BASIC (Beginner's All- 
Purpose Symbolic Instruction Code) System, which permits the user to prepare, test, and execute programs 
while operating from a workstation. This manual is for the experienced BASIC programmer. 
The organization of the manual is as follows: 
e Section 1. System Description 

Provides the reader with a general overall knowledge of the components of the BASIC system. 
s Section 2. Language Elements 

Discusses the elements that comprise the language used in constructing programs. 


a Section 3. Source Language Statements 


Describes each BASIC source language statement according to category that is available to the user in 
constructing his BASIC program. The statements are presented alphabetically within each category. 


a Section 4. File Support 


Describes the file-related statements and access methods supported under BASIC. The file-related 
Statements are presented alphabetically. 


e Section 5. BASIC Commands 
Describes each BASIC edit command available for preparing BASIC programs. These commands allow a 
user to name a program, execute a program, manipulate the source language statements in a program, and 
return control to the operating system. The BASIC commands are presented in alphabetical order. 

s Section 6. BASIC Program Techniques 
Contains techniques used in constructing BASIC programs. These techniques include the hierarchy of 
arithmetic operations and the use of programming aids such as: lists, tables, matrixes, built-in functions, 
and multiline functions. 


s Section 7. Errors and Debugging 


Describes the various user errors that may occur in preparing a BASIC program and the required correction 
facilities. 
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a Section 8. BASIC in a Batch Environment 
Contains programming techniques for BASIC in a batch environment. These techniques include items of 
special concern to the batch user, such as messages with a reply, source statement syntax errors, and 
running of a program. 

t Appendix A. Summary of BASIC Statement and Command Formats with Examples 
Lists statement and command formats and descriptions. Examples are provided for each entry. 

s Appendix B. Sample BASIC Session 
Shows a complete terminal session. 


s Appendix C. BASIC Error Messages 


Contains a numerical list of OS/3 BASIC error messages. 
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1. System Description 


1.1. GENERAL 


The SPERRY UNIVAC Operating System (OS/3) BASIC (Beginner's All-Purpose Symbolic Instruction Code) 
System provides the workstation user with the capability of generating, modifying, and executing programs 
written in the BASIC language. The BASIC system also provides the user with the capability of saving his 
programs on direct-access storage for subsequent processing and updating. 


The BASIC language is an interactive programming language designed to be easy to use, yet meet the 
requirements of both business and scientific programming. The BASIC language available on the OS/3 
operating system complies with the American National Standard Minimal BASIC, X3.60-1978 and includes 
Dartmouth features and compatibility. It provides a powerful, yet simple set of commands allowing the novice to 
learn the language quickly, and yet gives the experienced programmer an extensive list of features for various 
applications. 


Figure 1-1 shows an overview of the BASIC system. After logging on, the BASIC system is invoked by typing in 
the BASIC command at the workstation. The system then loads the BASIC compiler, responds with READY, and 
the user begins to construct or modify his source program. Each BASIC statement entered is analyzed by a 
syntax checker immediately for syntax errors such as invalid constants, expressions, and construction. If an error 
is detected, BASIC prints a question mark (?) and the statement in error, up to the first character where the error 
occurred. The user may then correct the error and proceed to the next statement. 


After the user has completed his program or part of a program, he may issue the RUN command to compile and 
execute the sequence of statements. The BASIC compiler performs a second syntax check for global errors 
during object code generation. These errors are detected when the source program is analyzed in its entirety 
rather than on an individual source line basis. Examples are illegal nesting, undefined function references, and 
illegal line-number references (1.6.1). If an error is detected, BASIC prints the tine number of the source 
statement in error and an appropriate diagnostic message (Section 7 and Appendix C). 


After compilation and execution of the program, the results are returned to the user’s terminal. The user may 
then use the SAVE command to save a copy of the current program in a library file. The program is stored using 
the program name supplied by the user. 
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Figure 1—1. BASIC System Overview 


1.2. TERMINALS SUPPORTED BY BASIC 


The BASIC system supports local and remote terminals. In this manual, local units are referred to as 


workstations, and remote units are referred to as terminals. 


BAO01 OS/3 BASIC READY (VER x.x) BEGIN 
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1.3. LOGON PROCEDURE 


To initially log on to the operating system, the user must enter the LOGON command in the system mode from 
his terminal. This command identifies the user to the operating system. 


Format: 


LOGON user-id [,acct][,password] 


where: 

LOGON 
Specifies that the user wants to log on. 

user-id 
Is a 1- to 6-character alphanumeric code you enter to identify yourself to the system. The user-id is 
used by the system to correctly route messages, job and command output, and to determine which 
commands you may use on the system. 7he user-id must begin with an alphabetic character. 

acct 
Is a 1- to 4-character alphanumeric code that is used for system time accounting. 

password 


Is a 1- to 6-character alphanumeric code that controls your access to the overall system. 


For a more detailed discussion of the LOGON command, refer to the OS/3 workstation user guide, UP-8845 
(current version). 


1.4. SOURCE PROGRAM CONSTRUCTION 
In system mode, the user invokes BASIC by issuing the following executive command: 


BASIC 


Control is transferred to BASIC, which immediately prints the following message: 


BA@®1 OS/3 BASIC READY (VER x.x) BEGIN 


At this time, the user is at the command level in BASIC. If a command other than NEW or OLD is entered, the 
syntax checker is called immediately to process the user's first source statement. 


After the compiler is called, the system responds with an asterisk, which requests source input. A line of input 
consists of a single BASIC source language or a BASIC editing command, followed by the TRANSMIT function. If 
an ail-blank line is transmitted, BASIC simply reissues the prompt. The BASIC source language statements and 
editing commands are described in detail in Sections 3, 4, and 5. Input lines may not be continued beyond one 
terminal line. 


BASIC distinguishes program source statements from editing commands by requiring that the source statements 
be prefixed by a line number. A line number consists of 1 to 5 digits with a value between 1 and 99999. Line 
numbers are used to determine the logical sequence of statements. In a BASIC program file, lines of source text 
may be entered in an arbitrary sequence. 
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The lines of source text are processed by the BASIC syntax checker and syntactically correct statements are 
added in source form to the user’s program file. This program file, which is built up in the user’s workspace, is 
not saved unless the user issues a SAVE or RESEQUENCE command. Statements entered at the terminal, which 
have a syntax error, initiate diagnostics and are not added to the user’s program file. 


BASIC editing commands are executed immediately and are not included in the user’s program file. The user's 
program file is compiled and executed when the RUN command is issued. 


After a line of input is processed, the system responds with an asterisk on a new line requesting another line of 
input from the terminal. 


The maximum acceptable input line is 80 characters. 


Because source statements are cataloged by line number in a user’s program file, no more than one statement 
can have the same specific line number. Therefore: 


1. If the line number of a syntactically correct source statement matches the line number of a statement in 
the current user’s program file, the new statement replaces the old statement. 


2. A-null statement such as 140 followed by the TRANSMIT key deletes a statement with a matching line 
number in the current user's program file. 


NOTE: 

The workstation screen clears if it is sitting idle for a period of time. To return to the original screen, press 
function key 19 (FK19) or function/workstation mode keys simultaneously. Do not press the MESSAGE 
WAITING key. 

Section 6 describes the techniques that a BASIC user can employ in constructing his program. Techniques for 


formatting formulas, using loops, formatting lists and tables, and using specialized functions are described with 
appropriate examples. 


1.5. BASIC SYNTAX CHECKER 


The BASIC syntax checker analyzes single BASIC source language statements. If a syntax error is detected, the 
system responds with a question mark (?) followed by a copy of the incorrect statement up to the first character 
in error. The user may then retype the remainder of the source statement followed by the TRANSMIT key as the 
next line of input. 
Example: 
The user types in the following line and then presses the TRANSMIT key: 
24 IF A=B THEN GOTO 41 


The system responds with: 


224 IF A=B THEN 


because the GOTO following THEN is incorrect. 


The user may then type in the following and then press the TRANSMIT key: 


41 
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BASIC processes the following completed statement: 


24 IF A=B THEN 41 


The following types of errors are detected by the BASIC syntax checker: 
 ] Incorrect constants, identifiers, function names, line numbers, and statement verbs 


s Incorrect expressions caused by unbalanced parentheses, implicit multiplication, and illegal operand- 
oOperator-operand sequences (e.g., two operators together as in A*-B) , 


s incorrect statement construction, such as no THEN clause following IF 


Global syntax errors (e.g., transfer to a line number not included in a program) are detected by the BASIC 
compiler. 


Lines of input which are not prefixed by a line number automatically bypass the syntax checker and are treated 
as commands. The BASIC command processor responds with a question mark (?) to an invalid command, which 
frequently results from typing a source statement without its line number. 


If the error in a rejected BASIC statement is not obvious, the user may issue a HELP command. This will result in 
a short explanation of the error being displayed at the terminal. Corrective action is often suggested by the 
explanation. 


When errors are detected by the syntax checker, only the portion of the statement which is correct will be 
displayed at the terminal. The user should complete the statement and retransmit it to BASIC. In the case where 
the user does not want to correct the statement, but wants to enter a new statement or a command, he should 
back up the cursor to the start-of-entry symbol { >) and erase the line. A new statement may now be entered. 


1.6. BASIC COMMAND PROCESSOR 


The BASIC system provides a set of edit commands which are described in detail in Section 5. The editing 
commands are integrated with the BASIC source language statements so that the user does not have to 
manually switch between edit and program construction modes. 


1.6.1. Program Execution 


The BASIC compiler is a one-pass, load-and-go system. The compiler generates object code that provides for 
program execution following the statement. The RUN command instructs the BASIC system to compile and 
execute the sequence of statements currently contained in the user’s program file. This sequence of statements 
need not constitute a logically complete BASIC program, because the compiler automatically generates code to 
terminate program execution following the last statement. The last statement in a program file must always be 
an END statement, whether or not the program is logically complete. 


In addition, the BASIC compiler does extensive global syntax checking. Each syntax error results in a message to 
the user's terminal consisting of the line number of the source statement that caused the error and an 
appropriate diagnostic. 


Example: 


BA®39 INCORRECT NESTING OF FOR-NEXT STATEMENT 
BAO27 LOADER ERROR AT LINE 99928 


* 
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As the program is loaded, a diagnostic is displayed for each error encountered; if errors are detected, the user is @ 
returned to the syntax checker. If no compiler errors are detected, the object code is automatically executed. The 
following types of global syntax errors are detected by the BASIC compiler syntax checker: 


s Overflow and underflow resulting from conversion of numeric constants to floating-point internal 
representation 


. Reference to an undefined function and redefinition of a defined function 

. References to nonexistent or invalid line number (e.g., GOTO, GOSUB, IF-THEN, ON) 
a NEXT before FOR, or no NEXT matching a FOR 

a Illegal nesting of FORs with same index 

a Illegal nesting of FORs with different indexes 

s Statements leading to unpredictable results 

a Duplicate parameters in a function definition 

a lilegal DEF-FNEND statement ordering 


lf an OLD program is being executed, and there are statements which were flagged by the syntax checker but 
have not yet been corrected, the loader will display an error message: 


BAO26 UNCORRECTED ERROR IN SOURCE @ 
BA@27 LOADER ERROR AT LINE 68769 


The user should go back and correct the lines in error before attempting to RUN the program again. 

The code generated by the BASIC compiler includes tests for a number of run-time errors. Each run-time error 
results in a type-out to the user’s terminal consisting of the source statement that resulted in the error and an 
appropriate diagnostic. 


Example: 


BA®15 ARRAY SUBSCRIPT OUT OF RANGE 
BAG62 EXECUTION STOPPED AT LINE 86239 
‘D 


Program execution terminates automatically when a run-time error is detected. See Appendix C for a complete 
list of diagnostics. 


1.6.2. Program Listing 
The LIST or PRINT command can be used to display all or part of a program at the user’s terminal. 


Example: 
LIST 156 - 175 & 


Only those lines numbered 150 to 175, inclusive, are listed. Lines of source text are listed as they were typed in. 
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LETTE EIEN 


& 1.6.3. Saving a Program 


The SAVE command can be used to save a copy of the user’s current program file in an OS/3 library file. The file 
name, supplied by the user, is used to locate the file on the disk. The program name is used for an element name 
within the library. The program is saved in source statement form. If a BASIC program with the same program 
name has been previously saved on the user’s disk file, the system will respond: 


1$100 FILE/MODULE ALREADY EXISTS;OK TO WRITE IT? (Y,N) 


If the user responds with Y or YES, the current program file will replace the previously saved program. For 
responses with an N or NO, the control will be returned to the user without overwriting the previously saved 
program. 


The message is repeated for a response different from Y, YES, N, or NO. For an example of saving a program, 
refer to the SAVE command description in Section 5. 


1.6.4. File Organization of a Saved File 


All files saved by BASIC, or OLD programs recalled by BASIC, are stored in standard OS/3 library files. The user 
is required to supply at least the program and file names. BASIC will check the system catalog to see if it lists the 
file. if it does, the file password, if any, will be verified and the volume name listed in the catalog will be used. If 
the file is not listed in the catalog, the user will be required to supply a volume name. 


When the user invokes the OLD command, all lines of source are processed by the syntax checker. If a syntax 

@ error is discovered while reading a statement from the source file, the line is written to the terminal, preceded by 
a question mark, and rejected. It will then be entered into the work file with a notation that the line must be 
corrected before the program may be run. The user must wait until the entire file is read before he can enter 
lines from the terminal. BASIC will respond with an * when it is ready. 


Programs saved by BASIC may be listed or punched using the OS/3 utility LIBS. 


1.6.5. Using a Saved Program 


The OLD command can be used to load a program saved on the user’s OS/3 library file into his workspace. 
When the OLD command is issued, the user must also supply the file information of one of the BASIC programs 
saved in a library file. The saved program then becomes his active program file. The copy of the program on disk 
is unchanged. 


The OLD and NEW commands may be issued at any time during a BASIC session. In either case, the current 
contents of the user’s active program file are lost and the file is renamed. 


Another command, RUNOLD, allows the user to quickly execute a saved program without the overhead of 
copying the source and compiled object code to the workspace. 


1.6.6. Returning Control to the System 


During the BASIC session, it may be necessary for the user to return control to the system, so that certain 
system commands such as FSTATUS, ASK, etc, may be issued. In order to facilitate returning control to the 

© system, BASIC provides the user with the SYSTEM command. The SYSTEM command causes BASIC to interrupt 
to the system, and the user can subsequently return to BASIC by issuing the RESUME command. 
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1.6.7. Deleting Program Lines & 





Basic statements that have been stored in the work file may be removed by typing their line number, as 
explained previously. A command is also available to remove several lines with a single command. 


Example: 


DELETE 126-129, 588 


1.6.8. Pause User Program 


Function key 1 may be used to pause the execution of the user program. When the terminal operator inputs 
function key 1 during the execution of the user program, BASIC stops execution and the following message is 
displayed on the terminal: 


BAQ63 EXECUTION PAUSED AT LINE xxxxx CONTINUE (Y,N)? 


If the user responds with Y, the user program is continued. If the user responds with N, the user program is 
terminated. If the user responds with other than Y or N, the message is repeated. To pause program execution 
when BASIC is requesting input, the user inputs the requested data, inputs function key 1, and ends with 
TRANSMIT. BASIC then prints the pause message. To pause program execution during output, the entire 
workstation screen must be full of data. At the end of the last line on the screen, the user inputs function key 1 
and then inputs function key 19. The pause message is printed on the first line of the newly cleared screen. 





1.6.9. Terminating BASIC 

The BYE command terminates the BASIC session, and all storage space occupied by the program is released to 
the system. BASIC issues a warning to the user prior to executing program termination. When the BYE 
command is used, BASIC determines if the user program has been saved in the library file. If it was not saved, 


the following message will be displayed on the terminal: 


BA118 SOURCE MODULE NOT SAVED - TERMINATE (Y,N)? 


If the user responds with Y, the following message will be displayed and the BASIC task will terminate. 


BA113 BASIC TASK NORMAL TERMINATION 


lf the user responds with N, the BYE command will be rejected, allowing the user to save the program. The 
message is reissued for any other response. 


1.7. LOGOFF PROCEDURE 


The LOGOFF command terminates the user session. This command must be the last issued in the task in the 
following format: 


LOGOFF 
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2. Language Elements 


2.1. GENERAL 


The BASIC language is made up of elements that can be combined in various ways to construct programs and 
subroutines. The language elements are divided into the following categories: 


a Characters 

s Constants 

ag Variables 

s Expressions 

. Function references 
s Channel setter 


a Statements 


2.2. CHARACTERS 


BASIC programs are constructed from a set of 58 distinct characters. A character is defined as a letter, digit, 
delimiter, or special character. 


Letter: ABCDEFGHIJKLMNOPQRSTUVWXYZ 
Digit: 0123456789 
Delimiter: Operator or separator 


Operator: +-*/()<>&t. 
Separator: ,.; A": 


Special Character: $@#?%’ 
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In addition, BASIC programs use open-string and string characters. 


open-string character letter, digit, operator, special character, period (.), semicolon (;), and double 
quote ("’). 

closed-string character letter, digit, operator, special character, comma (,), period (.), a semicolon (;), or 
a blank (A). 


Note the following conventions: 


1. 


Blanks: 

The character blank is designated in the syntax by the symbol A. Any spaces that appear in the syntax 
equations do not denote blanks in the BASIC language. Blanks are only significant in BASIC when they 
appear in a comment or a string constant. 


Quote: 


The character quote (‘’) is used to delimit the beginning and end of a closed-string constant. If a quote is 
required within a closed string, use two consecutive quotes. 


Asterisk: 


Exponentiation is specified by a pair of asterisks (**). A vertical arrow (1) is also permitted, where 
applicable. 


2.3. CONSTANTS 


Constants are used to specify data values. There are three types of constants: decimal numbers, string 
constants, and line numbers. 


Decimal number 

A fraction that may be optionally followed by an exponent field. A fraction is defined as a series of 1 or 
more digits that may contain an optional decimal point. The decimal point may precede, follow, or be 
embedded in the series of digits. The exponent field indicates the power of 10 that the fraction is to be 
multiplied by and consists of the letter E followed by an optional sign and 1 or 2 digits. The sign may be + 
or - and, if omitted, is assumed to be +. 

Examples: 


Fraction: 9, 9., .9, 9.9 


Exponent: El, E+1l, E+01, E-1, E-01 
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String constant: 
- Closed string: 
A quote followed by a series of 0 to 4095 string characters followed by a quote 
Example: 
‘AAB'’ or ‘‘BILL’’ ‘‘S$"' 
- Open string: 
A series of 1 to 4095 open-string characters or blanks or quotes 
Example: 
AAB 
Line number: 


A series of one to five digits without any sign, decimal point, or exponent field. It must be in the range of 1 
to 99999. 


Note the following conventions: 


1. 


Decimal numbers: 

All decimal numbers are converted and stored internally in floating-point format. The exponent occupies'7 
bits and indicates the power to which the number 16 must be raised. The sign occupies one bit. In floating- 
point format, the mantissa occupies 24 bits and contains a 6-digit hexadecimal number in normalized form. 
In BASIC, if the value of the fraction part of a decimal number, disregarding the decimal point, exceeds 
24-1, the number is rounded and trailing digits are lost. 


Example: 


12.3456789 


This decimal number is acceptable, but is (effectively) rounded to the following: 


12.345679 


if the mantissa is nonzero, the magnitude of the floating-point number has the following range: 


16% < M < 168 (approximately 16-72 < M < 1975) 


Overflow and underflow conditions for numeric constants are processed as errors. 





UP-9168 Rev. 1 SPERRY UNIVAC 0S/3 
BASIC 





2. String constants: 
All string constants are stored in EBCDIC code. A 2-byte length field is prefixed to each string before it is 
stored; the value of the length byte is not included. If a given string constant contains more than 4095 
characters, it is truncated at the right. Note that an open-string constant, as opposed to a closed-string 
constant, cannot contain a comma. Moreover, an open-string constant is permitted only as input to the 
READ and INPUT statements. Note that it is not possible to enter a string constant in a program longer than 
74 characters, because the maximum line length is 80 characters. 

Within a closed-string constant, two consecutive quotes are interpreted as a single quote. 

3. Line numbers: 

A line number that is an integer between 1 and 99999 must precede each statement in a BASIC program. 
The line numbers specify the logical sequence of statements in a program (ascending order). They are also 


used as statement labels for transferring control during program execution. 


Leading zeros in a line number are ignored in the sense that 00175 is equivalent to 175. 


2.4. VARIABLES 
Variables are used to designate arbitrary data values of a fixed type. In BASIC, the user may construct scalar 
variables and array variables. A scalar variable is defined as a numeric variable or a string variable. An array 
variable is defined as a numeric array or string array. A numeric reference may be a numeric variable or a 
numeric array. A string reference may be a string variable or a string array. 
a Scalar variable: 
A numeric variable or string variable 
- Numeric variable: 
A letter optionally followed by a single digit 
Examples: 
X, X2 
- String variable: 
A letter followed by a dollar sign ($), or a letter followed by a single digit, followed by a dollar sign. 
Examples: 


A$, J$, Q6$ 
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2 Array variable: 
A numeric array variable or string array variable 
- Numeric array variable: 
A letter followed by one or two subscript expressions enclosed in parentheses 
Examples: 
X(4), X(4,28), X(At+B) 
~ String array variable: 
A letter followed by a dollar sign ($) followed by one or two subscripts enclosed in parentheses 
Examples: 
C$(20), C$(A+B), DS$(A,C) 
Note the following conventions: 
1. Numeric variables: 
Numeric variables may only be assigned decimal numeric values. 
2. Numeric array variables: 
Numeric array variables may only be assigned decimal numeric values. 
The upper bounds for a 1-dimensional or 2-dimensional numeric array may be explicitly specified by a 
dimension (DIM) statement (Section 3). An implicit upper bound of 10 for either dimension is implied if not 
specified. In either case, the lower bound is always 0. 
3. Subscripts: 
A subscript may be defined using any arithmetic expression. During execution, the value used to locate the 
array element referenced is computed by rounding the subscript expression to the nearest integer. If the 
subscript value is not within the bounds specified (or implied) for that dimension of the referenced array, 
then the user is given an error message and program execution terminates. 
Two-dimensional numeric arrays are stored in row-major order. 


4. String variables: 


String variables may only be assigned character string values. All such variables are initialized to the null 
string (zero length). A string variable may contain up to 4095 characters. 


5. String array variables: 


String array variables may only be assigned character string values. All elements of these string array 
variables are initialized to the null string (zero length). 


The rules for numeric array variables regarding bounds and subscript evaluation apply to string array 
variables as well. 
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2.5. EXPRESSIONS 


The expression is the BASIC facility for performing operations on data values. BASIC provides for both arithmetic 
numeric expressions and string expressions. Arithmetic numeric expressions specify arithmetic calculations; 
string expressions identify input/output. Unless otherwise stated, all expressions are assumed to designate 
single values. 


7 Arithmetic expression: 


A term optionally preceded by a minus (-) or plus (+) sign, or an arithmetic expression plus (+) or minus (-) 
a term 


Example: 
A**2*B-3 
- Term 
A factor or a term multiplied (*) or divided (/) by a factor 
Example: 
A**2°B 
- Factor 
A primary or a factor raised to a power (**) designated by a primary 
Example: 
A**2 
- Primary 


A decimal number, numeric reference, function reference, or an arithmetic expression enclosed in 
parentheses ; 


Example: 


2,A,SQR(X),(C€-D) 


. String expression: 


A string primary or a string expression followed by an ampersand (&) denoting concatenation, followed by 
another string expression 


Example: 


‘ABC’ '&B$ 
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a String primary 
A closed-string reference or function reference 
Example: 


A$,SEG$(D$,6,8),‘‘AB’’ 


Note the following conventions: 

1. Mixed mode expressions are treated as errors. 

2. The exponentiation operator (**) may be written as a vertical arrow (ft), where applicable. 
3. A**B**C is compiled as (A**B)**C. 

4. Parentheses may be used to factor subexpressions. 


5. Overflow and underflow conditions existing during the evaluation of arithmetic expressions are treated as 
errors. 


6. Division by zero is treated as an error. 
7. Zero to a negative power is treated as an error. 


8. A negative number can be raised only to a nonzero positive integer number. The maximum value of the 
positive integer is 15. Any violation of this rule is treated as an error. 


2.6. FUNCTION REFERENCES 


An expression may contain references to the following types of functions: 
B Specific built-in functions provided within the BASIC system 
s User-defined numeric and string functions 
Function references consist of a function name, followed by an argument (list) enclosed in parentheses. All built- 
in functions have between zero and three arguments. In each case, the arguments are evaluated and control is 
tranferred to an out-of-line routine for evaluating the referenced function. 
The resulting (single) numeric or string value replaces the function reference in the containing expression. 
a Built-in function 
A function name optionally followed by an expression or list of expressions enclosed in parentheses 


s Function name 


ABS, ATN, CHR$, CLKS, COS, COT, DATS, DET, EBC, EXT, INT, LEN, LOC, LOF, LOG, MAR, MOD, NUM, <_ 
PER, POS, RND, SEGS, SGN, SIN, STRS, SOR, TAN, TIM, TYP, USRS, VAL 
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User-defined function 
FN followed by a letter and optional dollar sign, followed by an argument list enclosed in parentheses 
Example: 


FNCS$(C$,Z) 


Argument list 


Expression optionally followed by up to 15 expressions. A comma is used to separate one expression from 
another 


Example: 


A,BS,‘‘ABC''&'‘DEF’’... 


Note the following conventions: 


1. 


SIN(x), COS(x), TAN(x), COT(x), and ATN({y) designate the functions sine, cosine, tangent, cotangent, and 
arctangent, respectively, and the argument x and the result of ATN are angles measured in radians. 


EXP(x) designates exponentiation, e* Overflow occurs if x is too large (x > 174.6). 

LOG(x) designates the natural logarithm of x. The LOG of zero or a negative number is treated as an error. 
ABS(x) designates the absolute value of x, ish 

SQR(x) designates the square root of x. A negative argument is treated as an error. 


RND(x) designates a pseudorandom number as follows: 


a. lf x > 0, then RND(x) is a function of x whose value is in the open interval (0,1). 
b. If x <0, the system supplies an arbitrary random number in open interval (0,1). 
c. lf x = 0, the system supplies a pseudorandom number that is a function of the previous random 


number generated by RND. If x = 0, the first time RND is called in a program, the system will supply a 
fixed number in the open interval (0, 1). 


d. If no argument is used, x = O is assumed. To generate a sequence of pseudorandom numbers, the 
user would call any of these options followed by repeated calls to option c. With this option, the 
RANDOMIZE statement should be used to generate a unique sequence of random numbers. 

INT(x) designates the largest integer not exceeding x. 


Example: 


INT(2.985) = 2. INT(-2.015) = -3. 
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10. 


11. 


12. 


13. 


14. 


15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 


24. 


25. 


BASIC Update A 


SGN(x) designates the sign of x. 
SGN(x) = f+1, if x > 86 


0, if x = 6 
-l, if x <9 


FNA to FNZ designates one of the 26 user-defined numeric functions and FNAS to FNZS, one of 26 user- 
defined string functions (see the DEF statement). 


DET is a pseudofunction and may be used to obtain the value of the determinant of the last matrix inverted. 
LEN (X$) computes the length, in characters, of the string X$. This will be a value between O and 4095. 
MOD (x,y) is the modulus remainder of x divided by y: (x-y * INT (x/y)) 


POS (AS, BS, X) determines the location in string A$ of the first character of the first occurrence of the 
string BS beginning at or after position X in AS. This will return zero if BS does not occur in AS. 


TIM is the elapsed running time of the program in seconds, accurate to the nearest millisecond. 

VAL (A$) returns the value of the number whose decimal representation is in string A$. 

EBC (string) is a special function that takes a string of from one to three characters in length. It returns a value 
of the EBCDIC code for its argument. The argument is a character, or a 2- or 3-letter mnemonic for a character 


(e.g., EBC (ETX) = 3). See Table 2-1 for a list of mnemonics. 


CHRS(x) returns a 1-character string consisting of the EBCDIC character with the code MOD (INT (x), 
256). For example: 


CHR$(193) =A. 


This function does not apply to device control characters. BASIC converts to blanks (X‘40’) any character 
with a hexadecimal value of X ‘00’ to X‘3F’. 


CLKS gives the time of day as an 8-character string in the form hh:mm:ss. 

DATS gives the current date as an 8-character string in the form mm/dd/yy. 

SEGS (AS,x,y) locates the substring of A$ consisting of all characters between positions X and Y inclusive, 
and returns that string. An empty string is returned if X > Y, and the appropriate beginning or end of A$ is 
taken for X <=O or Y>LEN (AS). 

STRS (X) converts X to its decimal representation as a string result. 

USRS is a 6-character string giving the user's /ogon identifier from the LOGON command. 


LOC (#N) returns the current location of the file pointer for the file assigned to channel number N. 


LOF (#N) returns the current end-of-file value (length of file) for the file currently assigned to channel 
number N. 


MAR (#N) returns the current margin size for the file currently assigned to file number N. 
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Table 2—1. List of Mnemonics 


se 
ACK 46 LCJ 145 
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26. 


27. 


28. 


PER (#N,AS) returns the value +1 if the operation specified by A$ is valid for channel number N, O if the 
operation is invalid, and -1 if A$ does not specify one of the operations: INPUT, LINPUT, PRINT, READ, 
RENAME, RESET, SCRATCH, or WRITE. Operations may be invalid if they are applied to an unopened file or 
if the user has restricted access to the file. INPUT, LINPUT, and READ are invalid if the file is empty or the 
current pointer is at end-of-file (LOC=LOF). A value of +1 returned by PER ensures that the specified 
operation will be allowed if it is the next operation issued against the file. 


TYP (#N,AS) returns +1 if the file given by N currently has the type specified by A$, 0 if not, and -1 if A$ 
does not specify one of the operations: ANY, LIBRARY, NUMERIC, PERM, RANDOM, STRING, TERMINAL, 
TTY, or WORK. The terminal has type TTY, a scratch file has type WORK, an OS/3 library file has type 
LIBRARY, and an OS/3 MIRAM file has type PERM. Any open file has type ANY. NUMERIC and STRING 
are provided for compatibility and will always return a value of +1. A TERMINAL file is a sequential file for 
which the operations INPUT, LINPUT, and PRINT are valid. A RANDOM file is one for which the operations 
READ, WRITE, and RESET are valid. Currently all BASIC files have both type TERMINAL and type RANDOM 
except for the workstation file, which has type TERMINAL. 


NUM returns the number of values input for the last vector MAT INPUT statement. If the vector has a 
trimmer, NUM is not updated. 


2.7. CHANNEL SETTER 


The channel setter is used in file-related statements to specify which data file is to be selected. 


Format: 


# expression 


where: 


Identifies the channel setter. 


expression 
Is a numeric expression that is evaluated at execution time. 


Programming Notes: 


1. The expression is truncated to an integer. The resultant value must be in the range O to 4095. 


2. A channel setter of zero, or an omitted channel setter, selects the terminal. 


Examples: 


#3, #1, #3-4J 


f 


f 
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2.8. STATEMENTS 


The statement is the smallest complete unit of information in the BASIC system. Statements may be entered into 
a program, reordered, and executed. 


There are two general classes of statements in BASIC: executable and nonexecutable. Executable statements 
designate particular actions to be performed; nonexecutable statements specify supplementary information. 


Statement: 


A line number followed by an executable statement or a nonexecutable statement 


Executable statement: 


Assign, control, input-output, matrix, and data file statements 


Nonexecutable statement: 
Declaration or remark statement 


Each BASIC statement entered into a program must be prefixed with a line number. These line numbers 
determine the logical order of statements within a program. They are also used in severa! of the control 


statements to effect transfers of control. 


Comments may be appended to any BASIC statement by prefixing the comment with an apostrophe (’). When the 
syntax checker scans a source statement, any characters after the apostrophe are ignored (except when the 


apostrophe is part of a string constant). 





Each BASIC statement is described in detail in Section 3. 
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3. Source Language Statements 


3.1. INTRODUCTION 


This section describes the BASIC source language statements that are used in constructing a BASIC program. 
Each statement is described in detail with examples showing the use of each statement. 


The BASIC source language statements are classified as either executable or nonexecutable. The statements are 
categorized as: declaration, remark, assignment, control, data input/output, matrix operations, program 
segmentation, change, and file support. Statements within these categories are presented alphabetically. Table 
3-1 shows the list of all the BASIC source language statements. 


Table 3—1. List of BASIC Statements (Part 1 of 2) 


Statement Statements 
Category Executable Nonexecutable 











Declaration DEF 
DIM 
FNEND 


es 


Control FOR and NEXT 
: GOSUB and RETURN 
GOTO 
IF 
ON 
STOP, PAUSE, and END 
SYSTEM 


INPUT 
LINPUT 

MARGIN 

PRINT 

READ 

RESTORE and RESET 
USING 









Data Input/Output 
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Table 3—1. List of BASIC Statements (Part 2 of 2) 


Statement [| CStatements 
Category Executable Nonexecutable 


Matrix Operations MAT add, subtract, multiply 
MAT constant 
MAT identity 
MAT INPUT 
MAT inversion 
MAT LINPUT 
MAT null 
MAT PRINT 
MAT READ 
MAT scalar multiply 
MAT transpose 
MAT vector multiplication 
MAT zeros 


Program Segmentation | CALL LIBRARY 
CHAIN SUB 
SUBEND 
SUBEXIT 


Change CHANGE 


File Support FILE 
INPUT 
LINPUT 
MARGIN 
MATRIX 1/0 
PRINT and USING 
READ 
RENAME 
RESET 
SCRATCH 
WRITE 





A BASIC program consists of any sequence of BASIC statements; each statement must be preceded by a line 
number and must be written on a single line of terminal input. The maximum number of statements in a 
program depends on the complexity of individual statements in a particular program. This limit is usually a 
function of the amount of main storage available to load the program, and is not a limit imposed by the compiler. 
In describing the statements, the following conventions are used: 

1. Keywords that may be used in the statement are in capital letters. 

2. Names constructed using lowercase letters and embedded hyphens designate syntactic variables. 


3. Brackets, [ ], are used to enclose optional parameters. 


4. Braces, { }, are used to enclose alternatives. 
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5. Ellipsis, . . ., following an operand parameter indicates that the user may specify more than one parameter 
of that type. 


Example: 


READ variable-1 [,variable-2...] 


allows the READ statement to contain one or many input variables in the READ list. 


READ A 
READ A,B 
READ A,B,C 


3.2. DECLARATION STATEMENTS 


The declaration statements (DEF, DIM, and FNEND) explicitly specify the dimensions of arrays and define any 
defined functions that are referenced in a program. 
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3.2.1. 


BASIC 


DEF Statement 


In addition to the built-in functions, the BASIC user can define other functions via the DEF statement. 


Format: 


DEF FN letter [$][(param-list)][local-!ist]{=expression] 


where: 


FNietter [$] 


Is the name of the defined function which must consist of FN followed by a letter from A to Z. An 
optional dollar sign denotes a function with a string result. 


(param-list) 


variable [,variable. . .] 


local-list 


variable [,variable. . .] 


Programming Notes: 


Any reference to a defined function for which the user has not supplied a corresponding DEF 
statement is treated as an error. 


The redefinition of a defined function is treated as an error. 


A defined function may reference any other function except itself. Recursive definitions are not 
allowed. 


A function may be invoked only from an expression. 


The param-list is used to pass values in one direction only and that is to the function. Variables in the 
param-list are local. Variables in the param-list may be string or numeric in type. When called, the 
passed parameters in the call and in the definition must have matching types. 


If the function definition requires several statements (multiline function), the DEF statement defines 
the entry into the function and requires a unique, corresponding FNEND statement that defines the 
exit from the function. Branching into and out of a multiline function definition or branching to a DEF 
statement is illegal. 


A local-list can be provided for a multiline function to indicate that the variables named in the list are 
to be local only throughout the function definition. Such variables may be used for any other purpose 
outside the function definition; upon entry into the function, the variables are initialized to zero. 


To give a multiline function a value, the function name must appear to the left of an equal sign in an 
assignment statement. 
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® 9. A DEF statement within a function definition is illegal. 


10. The param-list and local-list variables are restored to their original values upon exiting from the 
function definition. 


11. All function definitions containing local parameters must appear before they are referenced by the 
main program. If a DEF statement is encountered during normal program flow, the statements 
defining the function are bypassed and contro! passes to the next statement within the main 
program. 


12. if no parameters are to be passed to the function, the param-list may be omitted. 


13. The function may reference variables external to it by using the same variable name as was used in 
the main program. 


14. Functions that are passed in subprogram CALLs must be defined prior to the CALL statement. 
Example 1: 


30 DEF FNE(X) = EXP(-X**2) 


During execution, this statement would be invoked for various values of the function e- * 2 by referencing 
FNE(.1), FNE(3.45), FNE(A + 2), etc. Such a definition can simplify the program when values of some 
function are needed for a number of different values of the variable. 


& Example 2: 


160 DEF FNA$,B$ 

116 PRINT ‘‘ENTER YES OR NO'’; 
128 INPUT B$ 

136 IF B$=''NO’’ THEN 156 

140 IF B$< > ‘‘YES’ THEN 116 
156 FNAS=B$ 

166 FNEND 


1650 IF FNA$ = ‘‘YES’’ GOTO 2989 


This multilined string function allows the user to request, accept, and answer by referencing the user 
function FNAS. 
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DIM 


3.2.2. DIM Statement 





The DIM statement explicitly specifies the upper bounds of numeric and string arrays to reserve sufficient space 
in main storage for the array. Either a 1- or 2-dimensional numeric array or a 1-dimensional string array can be 
dimensioned. The lower bound for each dimension is always O. 


Format: 
DIM f{numeric-dimension ,f{numeric-dimension}... 
string-dimension string-dimension 
where: 


numeric-dimension 
ls a letter followed by one to five digits in parentheses or a letter followed by two numbers (each 
consisting of one to five digits) separated by a comma in parentheses. 


string-dimension 
Is a letter followed by a dollar sign ($) followed by one to five digits in parentheses; or a letter 
followed by a dollar sign, followed by two numbers (each consisting of one to five digits) separated by 
a comma in parentheses. 





Programming Notes: 
1. The duplication of an array name in a DIM statement is treated as an error. 
2. The appearance of the same array name in more than one DIM statement is treated as an error. 


3. {f the value of a subscript of an array exceeds 10, the array name must appear in a DIM statement; 
otherwise, an error occurs. 


4. A DIM statement can appear anywhere in the program, and may appear after the related variable is 
used, providing the number of subscripts remains consistent. 


5. The upper limit on the subscripts of an array is referred to as the array dimensions or dimensions of 
the array. 


6. Numeric array elements are initialized to zero and string elements to null strings. 


7. The DIM statement defines the maximum bounds for the array. Certain other statements may be 
used to change the array bounds dynamically during execution. Changing the array bounds will limit 
the set of elements that can be referenced by subscripts or matrix operations. 


Example 1: 


280 DIM A(25) 





In this example, A is a 1-dimensional numeric array consisting of 26 numeric variables: A(O), A(1), . . 
A(25). 
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Example 2: 


21 DIM B(28,38), R$(35) 


In this example, B is a 2-dimensional numeric array consisting of 651 numeric variables: 


B(8,8),B(1,8),...,B(28,8) 
B(8,1),B(1,1),...,B(28,1) 
B(#,30),B(1,38),...,B(28,38) 


and R$ is a 1-dimensional string array consisting of 36 string variables: R$(Q), R$(1),...,R$(35). 
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FNEND 


3.2.3. FNEND Statement 





The FNEND statement terminates a multiline function and is the only way of exiting from a multiline function. Ali 
variables in the local-list and param-list in the DEF statement are restored to their values before the function 
call. 


Format: 


FNEND 


Programming Notes: 
1. Each multiline function must terminate with exactly one FNEND statement. 
2. Multiple FNEND statements for a given DEF statement are illegal. 
Example: 
25 DEF FNE (A,B,C),D 
38 D=A*5 


35 FNE=A + B+C+ 0D 
40 FNEND 





This example illustrates a multiline function. A, B, and C are the param-list variables, while D is the local- 
list variable of the multiline function FNE. As shown, the multiline function must begin with a DEF 
statement and terminate with an FNEND statement. 
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REM 


3.3. REMARK STATEMENT (REM) 


The REM statement provides a means for inserting explanatory remarks into a program. Although what follows 
REM is ignored, its line number may be used in a control statement. Comments may also be appended to BASIC 
statements by prefixing the comment with an apostrophe. 


Format: 


REM [character .. .] 


Example: 


100 REM INSERT DATA IN LINES 9868-998. THE FIRST 
118 REM NUMBER |S N, THE NUMBER OF POINTS. THEN 
126 REM THE DATA POINTS THEMSELVES ARE ENTERED, BY 


208 REM THIS IS A SUBROUTINE FOR SOLVING EQUATIONS 
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LET 


3.4. ASSIGNMENT STATEMENT (LET) 
The LET statement assigns a value to a variable. 
Format: 

[LET] (numeric-let 


string-let 
function-tet 


where: 


numeric-let 
Numeric-reference = [numeric-reference=...] arithmetic-expression. 


string-let 
String-reference = [string-reference=...] string-expression. 


function-let 
FN letter [$] = expression. 


Programming Notes: 

1. The statement verb LET need not be written. 

2. Mixed mode assignment is not accepted by the syntax checker. 

3. Multiple assignments are allowed. The right-hand expression is evaluated and then assigned to each 
of the references, from right to left, in turn. Subscripts are evaluated just prior to any assignments 
within the current statement. 

4. The function-let assigns a value to a multiline user-defined function. (See DEF statement.) 


Example 1: 


10 LET [=2 
20 A(1)=I1=3.5 


Statement 20 assigns | the value 3.5 and then A(I) is assigned the value of I, which is 3.5. 
Example 2: 


56 LET G$=H$='‘THIS STRING’’ 


This is a string-let statement that assigns the closed string constant “THIS STRING” to String variable HS, 
which in turn is assigned to string variable GS. 
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Example 3: 


10 DEF FNA(A,B,C,D) 
20 LET FNA=(A-B)*(C+D) 
3@ FNEND 


Statement 20 is a function-let statement used in the multiline function FNA. 


3.5. CONTROL STATEMENTS 


These statements give the programmer the ability to alter and control the normal sequence of statement 
execution. Included in this group of statements are: END, FOR and NEXT, GOSUB and RETURN, GOTO, IF, ON, 


PAUSE, STOP, RANDOMIZE, TIME, and SYSTEM statements. 
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END 


3.5.1. END Statement 


The END statement is the last statement in a BASIC program. 
Format: 


END 


Programming Notes: 





1. | When the user issues the RUN command, all statements up to and including the END statement, and 
any subprograms which may follow, are compiled. 


2. Only one END statement may be present in a program. Any statements after the END are treated as 
an error. 


Example: 


“30 END 
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FOR and NEXT 


3.5.2. FOR and NEXT Statements 


The FOR statement initiates a loop; the NEXT statement, whose variable matches the one specified in the FOR 


statement, 


Format: 


FOR 


terminates the loop. 


numeric-variable=arithmetic-expression TO arithmetic-expression 


[STEP arithmetic-expression] 


NEXT numeric-variable 


Programming Notes: 


A FOR-NEXT loop specifies the iteration of a sequence of statements for given values of the numeric- 
variable (loop index). The initial, final, and step values are given by the three arithmetic expressions 
specified in the FOR statement. A step value of +1 is assumed if the STEP is omitted. These values 
are calculated on each entry into the loop. 


The loop index may be used in calculations within a FOR-NEXT loop. In particular, its value may be 
changed by assignment and this will affect the sequence of values for which the loop is iterated. 


Let i, f, s, c designate the initial, final, step, and current values, respectively, of a loop index. 


Then, initially, we must have (f-1)*s = O. That is, the step value, which may be negative, must move 
the loop index value in the direction of the final value. 


lf f > i and s = O, then program execution will continue indefinitely within the FOR-NEXT loop. The 
calculations to determine loop termination are done at the top of the loop; thus, the statements in the 
FOR-NEXT loop may be skipped entirely. 

if control is transferred into a FOR-NEXT loop, the results are unpredictable. 

In the NEXT statement, the numeric-variable must be the same as that following the verb FOR in the 
FOR statement. If a different numeric-variable is detected (indicating an overlapping nested loop), an 
error results. An error will also result because of any one of the following conditions: 

a. The occurrence of a NEXT statement prior to its corresponding FOR statement. 

b. A FOR statement without its corresponding NEXT statement. 

Cc. More than one FOR statement with the same index (variable) prior to the occurrence of the 


NEXT statement corresponding to the first such FOR statement (that is, loops may be nested, 
but not if they use the same index). 
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3. The TO and STEP operand order is not checked. 
Example: 


16 FORI=1 TO 10 STEP 2 


is the same as 


19 FORT = 1 STEP 2 TO 18 


4. Nesting is allowed to 10 levels. 
Example: 


30 FOR X = 68 TO 3 STEP D 

80 NEXT X 

12@ FOR X4=(17+C0S(Z))/3 TO 3°SQR(918) STEP 1/4 
235 NEXT X4 

240 FOR X = 8 TO 3 STEP -1 


300 NEXT X 
456 FOR J = -3 TO 12 STEP 2 


500 NEXT J 


Note that the step size may be a fraction (1/4), a negative number (-1), or a positive number (2). 
In the example with lines 120 and 235, the successive values of X4 will be .25 apart, in 
increasing order. In the next example (lines 240 through 300), the successive values of X will 
be 8, 7, 6, 5, 4, 3. In the last example (lines 456 through 500), J will take on values -3, -1, 1, 3, 
5, 7, 9, and 11. 


5. The action of the FOR statement and the NEXT statement is defined in terms of other statements as 
follows: 


FOR v = initial-value TO limit STEP increment 
(block) 


NEXT v 
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BASIC 
is interpreted as 
LET own1 = limit 
LET own2 = increment 


line 1 


line 2 


LET v = initial-value 
IF(v-own1)*SGN(own2)>0 THEN line 2 


(block) 
LET v =v + own2 


GOTO line 1 
(continue in sequence) 
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GOSUB and RETURN 


3.5.3. GOSUB and RETURN Statements 


The GOSUB statement provides a subroutine call facility. 
Format: 


GOSUB line-number 
RETURN 


Programming Notes: 


1. The GOSUB statement transfers control to the statement whose line number is referenced. Control is 
subsequently returned to the statement following the GOSUB by executing a RETURN statement. 


2. A GOSUB statement inside a subroutine may be used to call another routine. This is referred to as 
nested GOSUBs. |t is necessary that the RETURN statement be used to exit from the subroutine. The 
execution of a RETURN statement before a GOSUB statement is treated as an error. 


3. GOSUB and RETURN statements need not be paired; that is, the same RETURN statement may be 
used to return from several different GOSUBs. 


Example: 


96 GOSUB 218 
91 A=3.1 


188 STOP 
218 


350 RETURN 


The GOSUB statement (line number 90) directs the system to line number 210, which is the first statement 
of a subroutine. The last statement of the subroutine is line number 350 (a RETURN statement), which 
causes the system to return to line number 91 of the program. 
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GOTO 


3.5.4. GOTO Statement 


The GOTO statement unconditionally transfers control to the statement whose line number is referenced. 


Format: 


GOTO line-number 


Programming Note: 


The nonexistence of the statement whose line number is referenced is treated as an error. 


Example: 


19 LET J$=‘‘THIS STRING’' 
20 GOTO 25 
21 READ A$,B$,C$ 


25 K$=‘‘WHAT STRING'’ 


The GOTO statement (line number 20) transfers control to the assignment statement (line number 25) and 
bypasses the READ statement (line number 21). 
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IF 


3.5.5. IF Statement 





The IF statement conditionally transfers control. When the condition specified is true, control is transferred to 
the line number referenced. 


Format: 
IF condition{GOTO line-number 
THEN 
GOSUB 
where: 


condition 
Is one of the following: 


arithmetic-expression relation arithmetic-expression 
string-expression relation string-expression 

END channel-setter 

MORE channel-setter 





relation 
Is any of the symbols listed in Table 3-2. 


Table 3—2. Relation Symbols 


[= [eee idan 


< 

<= Is less than or equal to A<=B 
=< A=<B 

> Is greater than 


=> Is greater than or equal to A=>B8B 
>= A>=8B 
<> Is not equal to A<>B 
# A+B 
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Programming Notes: 
1. Mixed mode expressions across a relation are not accepted by the syntax checker. 


2. | When two strings of different lengths are compared, the shorter string will be padded on the right 
with blanks until it is of equal length to the longer string. Thus, string comparison is always 
performed on equal length strings. This results in correct collating sequence. Note that this logic of 
string comparisons does not affect the actual stored lengths or values of strings. Also, null strings are 
considered to be a string of all blanks in all string comparisons. 


3. | The condition may test two arithmetic or two string expressions against each other using the tests 
listed in Table 3-2. If the condition is met, the transfer is completed. 


4. The condition may also be a file test, in which case the specified file is tested to see if there are - 
MORE records left to be read, or if the file is at END. The channel setter specified must refer to an 
open file. If the file has not been opened by a file statement, execution will be terminated. 


5. If the last record of a file has been read, but not entirely processed, the IF END statement will test 
true. That is, the file is considered to be at end of file if no additional READ is permitted. However, 
there may still be data in the buffer that an INPUT would accept. 


—_ 


Example 
18 A$=‘'ASHLEY'' 
20 B$=‘‘BOB’' 
® 39 IF A$<B$ THEN 580 


48 STOP 


58 PRINT A$;B$ 
END 


In this example, string A$ is smaller in value than string BS, although String A$ is greater in length than 
string BS. Thus, control transfers to line number 50 after executing the IF statement on line number 30. 


Example 2: 


40 IF SIN (X)=M THEN 89 


In this example, if the sine of X is equal to M, control transfers to the statement with line number 80. 
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ON 


3.5.6. ON Statement 


The ON statement provides a multibranched switch. 


Format: 
ON arithmetic-expressionf{GOTO )!ine-number[,!ine-number...] 
GOSUB 
THEN 
Programming Notes: 
1. The arithmetic expression is rounded to the nearest integer; it is used as the index to select and 


branch to one of the sequence of line numbers. 


2. If the value or the arithmetic expression is less than 1 or greater than the number of line numbers 
specified, a run-time error results. 


3. Once the selection has been determined, a GOTO, a THEN, or a GOSUB is performed. In the case of a 
GOSUB, a RETURN will return to the next statement. 





Example: 


158 ON X+Y GOTO 575,496,658 
2178 ON FNA(G) GOSUB 2269, 24968 


The first statement transfers control to line number 575, 490, or 650, depending upon whether the integer 
part of the expression X+Y yields 1, 2, or 3, respectively. 


The second statement will execute either a GOSUB 2200 or a GOSUB 2400, depending on whether FNA 
(G) has a value of 1 or 2. 
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PAUSE 


3.5.7. PAUSE Statement 


The PAUSE statement interrupts program execution and causes the following message to be typed out at the 
terminal: 


PAUSED AT line-number CONTINUE(Y OR N)? 


If the user responds with N or NO, execution is terminated. If the user responds with Y or YES, execution is to be 
continued at the next sequential line number. 


Format: 
PAUSE 


Example: 


“10 PRINT ‘‘THIS 1S A TEST PROGRAM’' 
“28 PAUSE 
“30 PRINT ‘‘THIS IS ANOTHER LINE’’ 
“48 PAUSE 
“58 END 
: RUN 
THIS IS A TEST PROGRAM 
BAG63 EXECUTION PAUSED AT LINE 86026 CONTINUE (Y,N)? > Y 
THIS 1S ANOTHER LINE 
BAO63 EXECUTION PAUSED AT LINE $9049 CONTINUE (Y,N)? > N 
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STOP 


3.5.8. STOP Statement 





The STOP statement is used to halt program execution and causes the following message to be typed out at the 
terminal: 


EXECUTION STOPPED AT line-number 
Format: 

STOP 
Programming Note: 

A STOP statement may appear anywhere in the program. 
Example: 


“18 INPUT A 
"20 IF A = 10 THEN 48 
“30 STOP 
"48 PRINT ‘‘KEEP GOING’ 
“50 END 
. RUN 
712 
BAOG2 EXECUTION STOPPED AT LINE 68938 
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RANDOMIZE 


3.5.9. RANDOMIZE Statement 
This statement will generate a random seed for use by the random number generator. Its function is equivalent 
to the function call RND(-1). If not used, a given sequence of calls to RND will generate the same sequence of 
numbers for repeated executions. 
Format: 

RANDOMIZE 


Example: 


19 RANDOMIZE 
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TIME 


3.5.10. TIME Statement 





This is a nonexecutable statement specifying the maximum CPU seconds allowed for program execution. If 
multiple TIME statements occur, the minimum value specified is used. When the specified time limit is reached, 
the following message is displayed: 


BAG59 TIME UP --- PROGRAM LOOPING 


Format: 


TIME integer 


where: 


integer 
Specifies an integer number of CPU seconds. 


Example: 





5 TIME 158 
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SYSTEM 


3.5.11. SYSTEM Statement 
This is an executable statement that allows a BASIC program to issue any system command. | 
Format: 

SYSTEM ‘‘system commandA’’ 
Programming Notes: 


1. The contents of the closed string should not start with a slash and should end with at least one —_ 
space. 


2. Errors that occur will be displayed on the user’s terminal, but will not be reported to the BASIC 
program. 


Example: 


193 SYSTEM ‘‘FSTATUS $Y$SRC, REL@70 °’ <_ 


3.6. DATA INPUT/OUTPUT STATEMENTS 


The input/output statements permit the user to transfer data between internal storage and the terminal, print 
data at the terminal (and format the data), and use the same data in a program as many times as required. The 
input/output statements are: INPUT, LINPUT, MARGIN, PRINT, READ and DATA, RESTORE and RESET, and 
USING. 


The following subsections present these statements in their simplest form for use with terminal input/output 
and program supplied data. These and additional statements are presented in Section 4. 
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INPUT 


3.6.1. INPUT Statement 


Data may be entered dynamically during the running of a BASIC program using the INPUT statement. 
Format: 


INPUT variable [,variable .. .] 


where: 


variable 
Is either a numeric or string variable reference. This may be either a scalar variable or a reference to 
an array element. 


Programming Notes: 


1. The INPUT statement is similar to the READ statement, except that its data is input (dynamically) 
from the user’s terminal. The user is prompted for input data by a question mark (?). Insufficient data 
results in additional prompting. Data must be entered according to the type of variable in the INPUT 
statement. Data items entered must be separated by commas. The inputting of invalid data causes an 
error message to be printed at the user's terminal. In this case, the user must retype the data starting 
with the data item in error. 


2. If the first four characters of the input are STOP, program execution is terminated. 
Example: 


20 PRINT ‘‘'TYPE IN VALUES FOR X, Y, AND Z’’,; 
39 INPUT X, Y, Z 


Execution of these statements causes the system to type out the following message: 


TYPE IN VALUES FOR X, Y, AND 2? 


The terminal device would be positioned after the question mark waiting for input values for X, Y, and Z. 
Note that without the semicolon at the end of line number 20, the question mark would have been posted 
on the next line. 
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LINPUT 


3.6.2. LINPUT Statement 


The LINPUT statement allows an entire input line to be read into a single String variable. No input checking or 
conversion is performed. 


Format: 


LINPUT string-variable [.string-variable . . .] 


where: 


string-variable 
Is a reference to a simple string variable or a String array element. 


Example: 


10 LINPUT C$,HS$(6,5) 


This statement will cause the user to be prompted twice for input. The first input response will be stored in 
its entirety in variable C$. The second response will be stored in array element H$(6,5). 
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MARGIN 


3.6.3. MARGIN Statement 
The MARGIN statement sets the current margin for the terminal. 
Format: 


MARGIN numeric-expression 


Programming Notes: 


1. | The vatue of the numeric expression in the MARGIN statement is truncated, and the resulting integer 
is used for the output margin length for the terminal. 


2. The MARGIN statement takes effect immediately, even if a line of output is partially filled. 
3. The width of a terminal line defaults to 80 characters unless reset by a MARGIN statement. 
Example: 


1 MARGIN 64 


This statement sets the current margin to 64 characters. This may be useful for UNISCOPE terminals with 
64 character lines. 
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PRINT 


3.6.4. PRINT Statement 
The PRINT statement results in data items being printed at the user’s terminal. 


Format: 


momo EE 


where: 


item 
Is an expression or TAB (expression). 


Programming Notes: 


1. The width of a printed line on a user’s terminal defaults to 80 characters, but may be reset by a 
MARGIN statement. 


2. Using the comma (,) or the semicolon (;), it is possible to control horizontal positioning on a printed 
line. Initially, the print line is divided into fields of 15-character positions each. 


a. If a comma is used after an item, the next item will be printed in the next available field. A data 
item is placed at the beginning of a field. If an item cannot be placed in a field because it will 
cause the line to exceed the maximum print positions for a device, then that item will be placed 
in the first field on the next line. If the last item in the current PRINT statement is followed by a 
comma or semicolon, and there is sufficient space remaining on the line, then the items in the 
next PRINT statement will be printed on the same line. If the last item is not followed by a 
comma or semicolon, then the next PRINT statement begins printing on a new line. 


b. If a semicolon is used after an item, the next item will be printed in the next print position on 
the line (i.e., the item following the string is printed directly connected to it). 


Cc. For numeric items, the size of a zone depends upon the number of digits needed to represent 
the data item. The zone width is always one character more than is needed for the data item. In 
each case, the number is printed starting at the first position of the zone. Numbers that cannot 
be represented as six or fewer digits are represented in E-notation (refer to Programming Note 
5) and occupy either 11 or 12 print positions within a 13-position zone. 


3. Whenever the TAB function is used in the PRINT statement, it will cause the print head to move over 
to the position indicated by the integer value of the TAB expression. The use of the comma and the 
semicolon remains unchanged in this type of statement. When a comma follows a variable, a fixed 
field width is reserved before the next entry in the statement is recognized. The semicolon causes 
this field width to be minimized. Thus, when the terminal device is being tabbed, the semicolon 
should be used. The TAB expression is evaluated modulo the current margin size; a value less than or 
equal to zero results in an error. If the value of the TAB expression is less than the current print 
position, the current line is printed and a new line is begun. 
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4. When a string reference is encountered that has not been assigned (a null string), the PRINT & 
statement will produce no printout. 
5. The conventions for printing numeric data are as follows: 
a. An integer number is printed as an integer. 
b. In all cases, no more than six significant digits will be printed. 
Cc. if the number is positive, the sign is not printed, but a print position is left blank. 
d. Decimal numbers will be printed without an exponent part whenever possible. Decimal 
numbers requiring an exponent field will be printed: 
—_ ~#.#[HHAJE + dd 
where the mantissa may be up to six digits. Trailing zeros in the mantissa are not printed. 
e. A space follows every number printed. 
6. If no items are present on the PRINT statement, a line advance occurs. 
Example 1: 
10 FOR X = 1 70 15 
26 PRINT X 
36 NEXT X 
49 END 


This example prints the numbers 1 to 15 on 15 lines as follows: 


Alp 
All 
O12 
413 
Al4 
Ald 











wa - 
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& Example 2: 


18 FOR X = 1 TO 15 
20 PRINT X, 

30 NEXT X 

40 END 


This example prints the numbers 1 to 15 in 3 lines as follows: 


Col 1 i 16 Col 31 Col 46 Col 61 
un A2 A3 A4 AS 

A6 Al A8 AY ALO 
All Al2 Al13 Al4 A15 


Example 3: 


10 FOR X = 1 TO 15 
20 PRINT X; 

38 NEXT X 

49 END 


This example produces a single line of printout of the numbers 1 to 15 as follows: 


® ALAA 2ZAAZAASAASAABAATAABAAGAAL DAAL TAAL 2AA13AAL4AAIL5 


lf statement 20 were modified, the following would be printed: 


20 PRINT - X; 
- 14-2A-3A-4A-5A~-6A-7A- 8A-9A- 10A-11A-12A-13A-14A-15 





Example 4: 


20 LET A= 1 


30 C$ = ‘'SALESMAN’’ 

49 A$ = ‘'JOE'' 

58 B$ = ‘‘ADOKES'' 

69 N= 4 

70 PRINT A, -16,A$;B$,C$:N 
88 END 


The execution of statement number 70 would produce the following output line: 


Col. Col Col Col. Col. Col. 
{ i° 31 35 46 55 
1 -16 JOEADOKES SALESMANA4 
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Example 5: 


10 PRINT ‘‘666008060111111111122222222223333333333'' 
28 PRINT ‘‘123456789812345678901234567898123456789' ' 
36 A$=''*"' 

40 A= 1 

50 PRINT TAB (9);A 

69 PRINT TAB (19);A 

79 PRINT TAB (29);A 

89 PRINT TAB (18);A$;TAB(26);A$;TAB(30);A$ 

99 END 


This example illustrates the use of the TAB function in the PRINT statement. The output of this program is 
as follows: 


Col 1 Col 10 Col 20 Col 30 


880000000111111111122222222223333333333 


123456789812345678901234567896123456789 
1 


Example 6: 





1p FOR X = 1 TO 25 
28 PRINT 2°*X; 

38 NEXT X 

48 END 


This is an example of how large numbers are printed and how they are spaced when a semicolon is used in 
the PRINT statement. The printout produced is as follows: 


AZADMAABAA 1 6AA3 2AAE6 4AA1 2 8AA2 5 6AA5 1 2AA1 82 4AA2 84 8AA4B96AAB 19 2AA16384AA3 2768 
A655 36AA131972AA262144AA5 2428 8AA1. O4858E+B6AA2 . B9715E+B6AAA.1943E+06 
AB .38861E+B6AA1.67772E+87AA3 . 5544E+07 
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READ and DATA 


3.6.5. READ and DATA Statements 


The READ statement assigns values to the listed variables. These values are obtained from the DATA statement. 
Format: 
string-variable 


READ (string-variable 
numeric-variable numeric-variable 


DATA eee habar i ane Ps 


Nhumeric-constant numeric-constant 


Programming Notes: 


1. Before the program is run, BASIC takes all of the DATA statements in the order in which they appear 
and creates a large data block. Each time a READ statement is encountered anywhere in the 
program, the data block supplies the next available datum (or data). The string data block supplies 
values for string variables, and the numeric data block supplies values for numeric variables. 


2. Insufficient data results in program termination with a diagnostic message. 
Example: 


10 READ X,Y,2Z,X1,¥2,Q9 

26 DATA 4,2,1.7 

38 DATA 6.734E-3,-174.321,3.14159265 
35 PRINT X,Y¥,Z,X1,¥2,Q9 

49 FOR K=1 TO 5 


58 READ B 

55 PRINT B 

69 NEXT K 

71 DATA 1 

72 DATA 2 

73 DATA 4 

74 DATA 5 

75 DATA 1.234E16 


80 END 
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The execution of the above example would produce the following output: 


o! Col Col Col Col 
16 i: 46 
A2 Al.7 A. 986734 -174.321 


C 
2 
{ 
4 
3.14159 
1 
2 
4 
5 
1 


.234E+16 
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RESTORE and RESET 


3.6.6. RESTORE and RESET Statements 


The RESTORE and RESET statements permit the user to read data from the beginning of a data block. 


Format: 
RESTORE 
RESET 
Example: 
18 READ N 
20 FOR X = 1 TO N 
30 READ X 
100 NEXT X 
110 RESTORE 
120 READ M 


136 FOR J = 1 TOM 
140 READ Y 


260 NEXT J 

390 DATA 5 

318 DATA 1.8 

315 DATA -61 

320 DATA 3.2E+81 
325 DATA 4 

339 DATA -3. 

406 END 


In this example, the READ statements on line numbers 10 and 120 will read the same datum (i.e., the 
number 5 contained in the DATA statement on line number 300). Similarly, the READ statements on line 
numbers 30 and 140 will read the same data from the DATA statements on line numbers 310 to 330. 
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USING 


3.6.7. USING Statement 


The PRINT USING format of the PRINT statement gives the BASIC user the ability to define the format of his 
program’s output. The USING clause consists of three parts: the USING keyword, the using string that contains 
the format fields, and the expression-list that is used to fill in the format fields of the using string. 


Format: 


USING using-string,expr-l,expr-2,...,expr-n 


Example: 


PRINT USING ‘‘<####=STRING FIELD, +##=NUMERIC FIELD''’,S1$,N 


As shown, both string and numeric output can be formatted by a using string. Numeric fields begin with a $, +, 
or -, and can only contain numeric output. String fields begin with < or >, and only string data can be formatted 
into a string field. Each starting character has a defined function and will be explained later. The # is a place 
holder and, by varying the number of place holders, the user can change the size of the format field and thus the 
format of the output. 


A format field begins with one of the characters $, +, -, <, or > and contains all characters up to but not 
including the next $, +, -, <, or > (or to the end of the using string). The complete using string may be made up 
of numerous format fields. A format field can appear anywhere within a using string and the place holders do 
not have to be contiguous. If more format fields are given in the using string than variables in the variable-list, 
the excess fields are ignored. If there are extra variables in the list, then the using string will be reused until the 
variable-list is exhausted. 


Any characters that do not have special meanings as described in this section may be embedded within format 
fields. As the BASIC system edits data into the place holders, any embedded characters are copied too. 


Example 1: 
If variable S$ contains the string: 


‘‘A=+##, B=-##,AND C$ CAN=<### OR ###'" 


the statement 


PRINT USING S$,28,-26,'‘ABCDXYZ'’ 


would produce the following output: 


A=+20,B=-20,AND C$ CAN=ABCD OR XYZ 
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Example 2: 
If only one variable is printed, the result would be: 
PRINT USING S$,28 
A=+26, B= 
Example 3: 


PRINT USING S$,-26,28,'‘ABCDXYZ'' ,36,-38 


will output: 


A=-20,B=29,AND C$ CAN = ABCD OR XYZA=39,B=-368,AND C$ CAN =- 


3.6.7.1. Formatting String Output 


The BASIC user has two options for formatting the string output of the BASIC program. He can left-justify or 
right-justify the output in the format field defined in the using string. 


The format field must start with a < to left-justify the output. When a format field starts with this character, the 
field is filled from left to right starting with the leftmost character, in this case the <, until the format field or the 
String is exhausted. If the string is not long enough to fill all of the place holders, then the remaining place 
holders are space-filled. If there are more characters in the string than there are place holders, the string is 
truncated. 


If the format field starts with a >, then the string is right-justified in the format field. The last place holder in the 
field is replaced with the last character of the string being printed. The next to the last place holder is filled with 
the next to the last character and so on from right to left until the format field is completely replaced by the 
String. If the format field is longer than the string being printed, the remaining place holders, including the > are 
replaced by spaces. If the string is longer than the format field, the leftmost characters of the string are omitted. 


Example 1: 


PRINT USING ‘'|<######/'',‘‘ABCD'' 


will output: 


|ABCD 


Example 2: 


PRINT USING ‘'|>######/'',‘‘ABCD'' 


will output: 


| ABCD| 
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3.6.7.2. Formatting Numeric Output 





Through using strings, the BASIC user is given a wide variety of ways to format numeric output. The user can 
dictate the number of decimal piaces that are printed, thus defining the accuracy of the number being output. An 
exponent field can be defined in order to neatly print large numbers. The numeric field can be preceded by three 
different field descriptors. A dollar sign causes the dollar sign to be right-justified against the output number. 
The plus sign right-justifies a plus sign against the number if the number is positive, or a minus sign if the 
number is negative. A minus sign causes a minus sign to be right-justified if the number is negative; if the 
number is positive, no sign is printed. To further identify the output, the user can combine the dollar sign with a 
plus or minus sign, giving $+ or $-. Examples will be given later to explicitly show each format that can be used. 


Many different situations can occur when printing numbers with format fields due to the flexibility in describing 
the format fields and the varying magnitude of the numbers being printed. The following paragraphs present 
some of these situations and explain how each is handled. 


When a numeric field is defined, the user should be aware of the expected magnitude of the number to be 
printed in the field. The magnitude of a number cannot be greater than the size of the format field (number of 
place holders) in which the number is to be printed. An example would be printing the number 100 in the format 
field +##. In this field there are only two numeric positions, and the 100 will take three. To inform the user that 
this error has occurred, the entire format field is replaced by asterisks. In this case, the output is ****. 


There are two ways to avoid this problem. First, the format field can be made very large in order to accommodate 
large numbers. This is an adequate solution, but can lead to another problem. BASIC will only print six 
significant figures; if the user attempts to print more than six significant figures (an example would be 
10000000), then the number is truncated to six figures and the remaining portion of the format field is replaced 
with question marks. Output printed in this manner may not always be in good readable form. In the example 
previously given, if the format field used was +#########, the output is +100000???. 





A second method for printing numbers of varying magnitudes avoids using large format fields by defining an 
exponent field in the format string. An exponent field is defined by five consecutive up-arrows !tftt. When an 
exponent field is used, the number is adjusted to fit into the defined field, and the exponent is then calculated to 
give the user the magnitude of the number. If an exponent field is defined in the format string, such as 
+HH#H#H#ITtTt, then the magnitude of the number is known. The +1000000 is formatted as +1000 E+03 and the 
+100000000 is printed as +1000 E+05 which tells the user exactly what was printed. As seen in the examples, 
the exponent field in the format field is formatted as follows: 


space E sign digit digit 


If an exponent is used with a numeric format field, then any number can be printed in the field. The number is 
adjusted to the field size, and the exponent holds the magnitude of the adjusted number. If this statement is 
executed: 


157 PRINT USING’ ‘+##ttttt’’ ,25,298,-360, 909061 


the result is: 


+25 €+60 +29 E+81 -39 E+81 +18 E-06 
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To print numbers that contain a decimal component, the user can define decimal fields in the format field. The 
format field begins with a +, -, $, $+, or $-, optionally followed by any number of place holders. A decimal point 
may be embedded anywhere within the place holders. The following field will contain a decimal field of three 
places, ‘+##.###''. When the decimal is printed, it is rounded to the number of positions given and then printed. 
When no decimal places are given, the number is rounded to the next integer value. 


Examples: 
Format Fieid Number Printed Resulting Output 
+H # HHH +108 +106 
+H # # HH -160 -108 
—##HHH +1098 1690 
~H#HHH -1960 -108 
S### . ## +20.99 $29.99 
St+###. ## -20.99 $-20.99 
S+###  ## +28.99 $+28.99 
$-### . ## +26.99 $26.99 
S$### AND ## CENTS +45.58 $45 AND 58 CENTS 
DICE - AND - 1,1 DICE 1 AND 1 
$#, ###. ## 1234.56 $1,234.56 
$H#,##H# HF 8.94 $8.94 
-#:008 HOURS ## 1234 12:90 HOURS 34 
MINUTES MINUTES 
TODAY IS THE -#TH OF 2680 TODAY IS THE 26TH OF 
SEPT, 19## SEPT, 1988 


3.6.7.3. Use with PRINT Statement 


The USING clause may only be used in combination with a PRINT or MAT PRINT statement. As previously stated, 
a USING clause begins with the word USING, followed by a string and a list of expressions to be formatted: 


USING string-expression, expression, expression, 


Examples: 


196 PRINT USING A$,B,C,18,E(5) 

107 PRINT USING ‘‘FILES-#DISKS-#TAPES-#'',F,D,T 

1698 PRINT USING ‘‘USER RESPONSE OF>H#### 1S INVALID’’ .U$ 
109 PRINT USING FNBS$(6),T,U,SIN(3.14159) 


The USING clause need not be the only thing on a PRINT statement; unformatted expressions may be combined 
with formatted data. When combining formats in this manner, it is important for the user to realize exactly where 
a USING clause begins and ends. It always begins with the word USING. The end of the USING clause occurs 
either at the end of the PRINT statement that contains no trailing comma or at a semicolon. 


When a USING clause is encountered, BASIC formats the entire using string and the PRINT statement prints it to 
the output device. Thus, when used with files, the using string, after editing, must not be longer than the margin 
for the file. 
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Examples of combined formats are shown; the shaded areas indicate the USING clauses. 


243 PRINT #1 
244 PRINT | 
246 PRINT TAN(X), 
247 LET F$ = ''IS THE <######## OF -#HH.HITTIT 

248 PRINT TAN(X) ;-GS)NG & u— ath 






The list of expressions to be used with a single USING clause can be extended over several PRINT statements by 
ending the statements with a comma. This indicates that more expressions are to follow, and BASIC will delay 
printing the output until a semicolon is found in a subsequent PRINT, or until a PRINT is executed that does not 
end with a comma. 


Examples: 


341 PRINT USING A$,B,C,D, 
342 PRINT E,F:G,H 
343 PRINT USING ($,J$,K,L(3), 
344 PRINT SIN(3.14159), 
345 PRINT M 
: 346 PRINT N,O 


347 PRINT P,USING Q$,R; 


348 PRINT S @ 


Variables B, C, D, E, and F are printed under the format in A$, variables G and H are unformatted. Variables JS, 
K, array element L(3), the sine of 3.14159 and variable M are under the format in !$, while N and O are 
unformatted. Variables P and S are unformatted, while R is printed under the format in QS. 





The final example of the USING clause shows how the format fields are reused when insufficient format fields 
exist for all of the variables to be printed. 


Examples: 


179 PRINT USEING’ ‘-.###tttIt IS THE <###### OF-. ###TIIT'’ | TAN(X), ‘TANGENT’ ’, 
188 PRINT X,SIN(X),‘°‘SINE'',X,COS(X),‘*‘COSINE'’,X 

181 PRINT COS(X);‘‘IS THE COSINE OF’';X 

4.855E+85 IS THE TANGENT OF 1.571E+60 1.068E+®0 IS THE SINE OF 1.571E+69 
2.060E&-686 IS THE COSINE OF 1.571E+08 

2.05959E-86 1S THE COSINE OF 1.57679 
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Because statement 179 ends with a comma, the USING clause is still active. Any variables printed on a 
succeeding PRINT statement will still be under format control. Statement 180 does not end with a comma, 
so it terminates the format. A total of nine expressions is formatted. Statement 181 is a normal PRINT 


statement. 


This example shows several unique properties of USING clauses. The format string contains three format 
fields: 


~ .###ttttt 1S THE 
<###HHH OF 
— eH ttt 
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MAT 


3.7. MATRIX OPERATION STATEMENTS 


For ease in handling matrix operations on numeric arrays, the following MAT statements are provided in BASIC: 
a MAT addition, subtraction, and multiplication statements 


MAT C =A+B 
Add the two matrixes A and B; store the result in matrix C. 


MAT C = A - B 
Subtract matrix B from matrix A; store the result in matrix C. 


MAT C=A * B 
Multiply matrix A by matrix B; store the result in matrix C. 


s MAT constant statement 


MAT C = CON 
Set each element of matrix C to a value of 1. 


. MAT identity statement 


MAT C = [DN 
Set the diagonal elements of matrix C to 1’s, and all other elements to O, yielding an identity matrix. 


t MAT INPUT statement 


MAT INPUT A,A$ 
Input elements of a matrix. 


e MAT inversion statement 


MAT C = INV (A) 
Invert matrix A; store the resulting matrix in C. 


2 MAT LINPUT statement 


MAT LINPUT A$,B$ 
Input lines of data into elements of matrixes using the LINPUT statement. 
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a MAT null statement 


MAT C$ = NUL$ 
Set each element in matrix C$ to a null string. 


s MAT PRINT statement 


MAT PRINT A,A$ 
Print elements of matrix A. 


s MAT READ statement 


MAT READ A,A$ 
Read elements of matrix A from DATA statements. 


s MAT scalar multiply statement 


MAT C = (exp)*A 
Multiply each element of matrix A by the value of the expression and place the result in matrix C. 


s MAT transpose statement 


MAT C = TRN(A) 
Transpose matrix A and store the resulting matrix in C. 


. MAT vector multiplication statement 


MAT variable = V‘*W 
Multiply vectors V and W and assign the result to a variable. 


a MAT zeros (0's) statement 


MAT C = ZER 
Set each element of matrix C to 0. 
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3.7.1. Matrix Dimensioning 


An array variable used in a MAT statement should have its upper bounds (maximum) defined in a DIM 
statement. 


For matrix operations, the lower bounds for each dimension of a matrix are assumed to be 1; elements in row 
and column O are unchanged. 


Example: 


196 DIM P(3,4) 


This defines 20 elements P(0,0),...,P(3,4) but only 12 elements P(1,1),....P(3,4) take part in any MAT 
operation. 


The mathematical definition of matrix addition, subtraction, multiplication, inversion and transposition 
operations require the obvious conformities of matrix dimensions; otherwise, errors will result. Details 
concerning matrix dimensioning are discussed in the programming notes for each matrix operation statement. 


Certain statements allow the user to implicitly or explicitly redimension a matrix. When a matrix is explicitly 
redimensioned, a trimmer is used that has a form similar to the array bounds listed in a DIM statement. 
Trimmers cannot change the number of subscripts of an array, but they can change the number of elements in 
the array {i.e., the user cannot change a matrix to a vector or vice versa). 


When changing the number of elements in an array, the new array dimensions cannot cause it to have more 
elements than the original DIM statement reserved for it. If the original DIM statement reserved (n,m) elements, 
and the trimmer changes it to (a,b), the following condition must hold: 





(atl) *(b+1)<(n+1)*(m+1) 


For example, if array A was dimensioned as 3,4 it could not be trimmed to 3,6, because the original matrix 
contained 20 elements and the new matrix would require 28 elements (remember row and column 0). 
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3.7.2. MAT Addition, Subtraction, and Multiplication Statements 
These statements permit addition, subtraction, and multiplication of numeric matrixes. 
Format: 


MAT letter=lettertletter 
MAT letter=letter-letter 
MAT letter=letter* letter 


Programming Notes: 


1. The operator (+) denotes a matrix addition statement; the operator (-) denotes a matrix subtraction 
statement; and the operator (*) denotes a matrix multiplication statement. 


2. Only one operation may be performed per statement. 

3. Matrix dimensions must be conformable for each operation. If dimensions are not conformable, 
execution is terminated and a dimension error message is typed out at the terminal. The output 
matrix will be redimensioned, if possible, to be consistent with the input matrixes. 


4. The following are treated as errors: 


MAT A=A*B 
MAT A=B*A 


5. The mathematical definition of matrix multiplication is used. Thus, each of the following conditions 
must hold for MAT A=B*C: 


a. Current row bound (A) = current row bound (B) 

b. Current bound (A) = current column bound (C) 

Cc. Current bound (B) = current row bound (C) 

Matrix A will be redimensioned to meet these conditions. 


if either B or C is a vector, it will be transposed so that A will be a vector. If both B and C are vectors, 
an error will result. (See 3.7.13.) 


6. The mathematical definition of matrix addition and subtraction is used. Thus, each of the following 
conditions must hold for MAT A=B+C or MAT A=B-C. 


a. Current row bound (A) > current row bound (B) 
Current row bound (A) > current row bound (C) 


b. Current column bound (A) = current column bound (B) 
Current column bound (A) = current column bound (C) 


Matrix A will be redimensioned to meet these conditions. 
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Example: 


18 «DIM A(2,2),B(2,2),€(2,2) 


20 FOR 1 = 1 T0 2 

30 FOR J = 1 70 2 

40 READ A(t,J),B(1,J) 

50 NEXT J 

68 NEXT I 

70 DATA 1,5 

71° DATA 2,6 

72, ~=DATA 3,7 

73 DATA 4,8 

80 PRINT 

81 PRINT ‘‘MAT C = A + B'' 
82 PRINT 

85 MAT C=A+B 

86 GOSUB 209 

90 PRINT 

91 PRINT ‘‘MAT C = B - A’’ 
92. PRINT 


95 MAT c=B-A 
96 GOSUB 200 





108 PRINT 
101 PRINT ‘‘MAT C = A * B’' 
192 PRINT 


195 MAT c=A* B 

106 GOSUB 200 

110 STOP 

260 PRINT A(1,1);A(1,2) 
218 PRINT A(2,1);A(2,2) 
220 PRINT B(1,1);B(1,2) 
230 PRINT B(2,1);B(2,2) 
246 PRINT C(1,1);0(1,2) 
250 PRINT C(2,1);€(2,2) 
268 RETURN 

308 END 
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re ——————— 


& The execution of the preceding program would produce the following output: 


7 
19 


® , 


By using the MAT PRINT statement (3.7.9), statements 200 through 250 are replaced by 


DS ~w 


206 MAT PRINT A; B; C; 
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3.7.3. MAT Constant Statement 
This statement results in all elements of the subject matrix being set to 1. 


Format: 


MAT ltetter = CON [(trimmer) ] 


where: 


trimmer 
Is a new array dimension to be applied to the matrix. 





Programming Notes: 


1. A trimmer may optionally be used with this statement to dynamically redimension the matrix. This 
trimmer may not change the number of subscripts for the matrix. The new dimensions may not cause 
the new matrix to have more elements than did the original definition, or an error will result. 


2. A trimmer has the same format as the dimensions on a DIM statement. 


Example: 


175 MAT C=CON 





The elements of matrix C will be set to 1. The dimensions of matrix C are used in the operation. 
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® 3.7.4. MAT Identity Statement 
The MAT identity statement is used to set the subject matrix to an identity matrix. 
Format: 


MAT letter=IDN [( trimmer) ] 


where: 


trimmer 
Is a new array dimension to be applied to the matrix. 


Programming Notes: 
1. A trimmer may optionally be used with this statement to dynamically redimension the matrix. This 
trimmer may not change the number of subscripts for the matrix. The new dimensions may not cause 
the new matrix to have more elements than did the original definition, or an error results. 


2. A trimmer has the same format as the dimensions on a DIM statement. 


3. The current row and column dimensions of the subject matrix must be equal when this statement is 
executed; otherwise, an error occurs. 


@ Example: 


20 MAT B = IDN (3,3) 


In the statement with line number 20, matrix B is changed to a 3 x 3 matrix and then set to an identity 
matrix. If B is not defined to be square, a dimension error message results. 
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3.7.5. MAT INPUT Statement 


The MAT INPUT statement causes elements of the arrays in the array list to be assigned values during execution 
of the program. The terminal user is prompted by means of a question mark to enter a list of values. If the array 
— name is not specified with a trimmer, or if the array name is not the last one in the list, the user must supply the 
same number of values as the current array dimension requires to fill the array. The user can always enter less 
than the required number of elements for the last array in the list. Therefore, the last array has a built-in trimmer 


= feature. The number of values input is stored in the function NUM. 
Format: 
MAT INPUT mat-name [(trimmer)] [,mat-name[(trimmer)],...] 


Programming Notes: 


1. 


—_ 
2. 
3. 
—>- 
4. 
—_> 5. 
Example: 
108 


When the terminal user must enter an array in response to a MAT INPUT statement, it is quite likely 
that he will not be able to fit the entire array on a single line. The user may specify that a line is to be 
continued by entering a comma and an ampersand (&) following the last data item. The last line that 
is not terminated by an ampersand will terminate the input: 


?1,2,3,& 
4,5 


If the BASIC program is not doing vector input, then the number of data items typed must match the 
number of entries in the array. 


When doing vector input, the vector is redimensioned to the number of values input, in addition to 
the value being stored in NUM. If the vector has a trimmer, however, NUM remains unchanged. 


When inputting 2-dimensional arrays, elements in row 1 are filled first, then row 2, and so on. 


NUM is updated only if the last variable in the list is a vector without a trimmer. 


MAT INPUT A(3,4),V$ 
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3.7.6. MAT Inversion Statement 
Matrixes are inverted using the MAT inversion statement. 
Format: 


MAT letter=INV( letter) 


Programming Notes: 
1. Matrix inversion in place (MAT A=INV(A)) is treated as an error. If a matrix is singular, the value of | 
the pseudo-function DET will be set to zero; otherwise, DET will contain the value of the determinant 


for the just-inverted matrix. 


2. The mathematical definition of matrix inversion is used. Thus, each of the following conditions must 
hold for MAT A=INV(B): 


a. Current row bound (B) = current column bound (B) 
b. Current row bound (A) = current row bound (B) 
Cc. Current column bound (A) = current column bound (B) 
3. The matrix being inverted is destroyed during the inversion process. 
Example: 


559 MAT K=INV(L) 


Matrix K is made to represent an inverted row-column arrangement of matrix L. 
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3.7.7. MAT LINPUT Statement 


This statement causes entire lines to be read into the elements of a String array during execution of the program. 
Matrixes are filled row-by-row until the entire matrix (except row and column O) is filled. 


Format: 


MAT LINPUT string-array [(trimmer)] [,string-array [(trimmer)],...] 


Example: 


325 MAT LINPUT A$(5),C$ 
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3.7.8. MAT Null Statement 


This statement sets all elements of string matrix to null strings. The matrix may optionally be redimensioned. 


Format: 


MAT letter$ = NUL$ [(trimmer) ] 


where: 


trimmer 
Is a new array dimension to be applied to the matrix. 
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3.7.9. MAT PRINT Statement 


The MAT PRINT statement causes an entire array (except for row and column O) to be printed row-by-row. If an 
array is followed by a semicolon separator, the elements of each row are printed closely packed; otherwise, the 
elements of each row are printed in columns 15 spaces wide. Each row begins on a new line. If a row does not 
fit on one line, it is continued on succeeding lines. If no print separator follows a vector, it is printed as a column 
vector, i.e., one element per line; otherwise, it is printed as a row vector. 


Format: 


MAT PRINT mat-name letter ({:} mat-name letter .. | [ 


where: 


mat-fname 
is the name of a string or numeric matrix. 
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3.7.10. MAT READ Statement 


The MAT READ statement causes elements of the matrixes in the array list to be assigned values during 
execution of the program. These values are obtained from the appropriate block data formed by the DATA 
statements. Matrixes are filled row-by-row until the entire matrix (except for row and column 0) is filled. 


Format: 


MAT REAO mat-name [(trimmer)] [,mat-name [(trimmer)]}... 


where: 
mat-nhame 
Is the name of a string or numeric matrix. 
trimmer 


Is a new array dimension applied to the matrix. 
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3.7.11. MAT Scalar Multiply Statement 


The expression is evaluated and this result is used to multiply each element in the matrix on the right side of the 
equal sign. The resultant values are assigned to the matrix on the left side of the equal sign. 


Format: 


MAT letter=(arithmetic-expression)*letter 


Example: 


196 MAT C= (5) * A 


Each element in A is multiplied by 5 and the result is placed in matrix C. The dimensions of both matrixes 
must be identical. 
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3.7.12. MAT Transpose Statement 
Matrixes are transposed using the MAT transpose statement. 


Format: 


MAT letter=TRN( letter) 


Programming Notes: 
1. Matrix transposition in place (MAT A=TRN(A)) is treated as an error. 


2. The mathematical definition of matrix transposition is used. Thus, each of the following conditions 
must hold for MAT A=TRN(B): 


a. Current row bound (A) > current column bound (B) 
b. Current column bound (A) > current row bound (B) 
Example: 


3098 MAT G=TRN(H) 


The matrix G is the transpose of matrix H. 
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3.7.13. MAT Vector Multiplication Statement 
This statement permits the multiplication of two vectors, yielding a scalar result. 


Format: 


MAT variable = letter * letter 


Programming Notes: 


1. Both arrays used in the statement must be defined to be vectors of equal size. 


2. The result must be assigned to a numeric variable. 


3. The variable must be in the form letter-number (such as A1 or B7) to explicitly denote a scalar 


variable. 
Example: 


MAT A6 = V°W 
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3.7.14. MAT Zeros (0's) Statement 
This statement results in all elements of the subject matrix being set to O. 


Format: 


MAT letter=ZER [ (trimmer) ] 


where: 


trimmer 
Is a new array dimension to be applied to the matrix. 


Programming Notes: 

1. You can use this statement to dynamically redimension the matrix. This trimmer may not change the 
number of subscripts for the matrix. The new dimensions may not cause the new matrix to have 
more elements than did the original definition, or an error will result. 

2. Atrimmer has the same formats as the dimensions on a DIM statement. 


Example: 


158 MAT C = ZER(3) 


The elements of matrix C are set to 0. The dimension of matrix C is changed to 3; then the operation is 
performed. 


3.8. PROGRAM SEGMENTATION 


The statements described in this subsection allow BASIC programs to be logically and physically segmented. The 
CHAIN statement allows a large program to be divided into several smaller ones that may be serially executed 
occupying the same main storage region. The CALL and SUB statements allow the development of 
parameterized, independent routines. The LIBRARY statement provides the mechanism for calling previously 
coded and debugged routines that have been stored in OS/3 library files. 
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3.8.1. CALL Statement 


The CALL statement invokes a BASIC subroutine. 


Format: 


CALL 


where: 


stri 


para 


string-constant[:param-list] 


Ng-constant 
Is a subroutine name (eight alphanumeric characters maximum). 


m-list 

Is one of the following: 
expression 
variable 


channel setter 
function name 
array 


Five types of parameters may be specified in the param-list. 


1. 


Expression (call-by-value) - Any numeric or string expression. The value is only passed to the 
subroutine; no value may be returned. A simple variable may be made an expression by enclosing it 
in parentheses. 

Example: 


A+3,5,(X), AS&BS,"“ABC”’ 


Variable (call-by-reference) - Any numeric or string variable. The value of the variable may be 
changed by the subroutine. 


Example: 
X,R3,A$,X$(1,3) 


Channel setter - A file is passed to the subroutine. Any processing may be performed on the file by 
the subroutine, including reopening the file with a different name. 


Example: 


AL,AX+Y 
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4. Function name - A function is passed to the subroutine. The function may be used in any valid 
context in the subroutine. The number and type of parameters for the passed function must agree 
with its use in the subprogram. 

Example: 
FNXS$,SIN 

5. Array - An entire array may be passed to a subroutine. Any valid operation, including 
redimensioning, may be performed by the subroutine. Note that the CALL statement only specifies 
the number of dimensions, not the actual! dimensions. 

Example: 
A\(,),BS() 
Programming Notes: 

1. Subprograms may not be called recursively. 

2. Only open files may be passed. 

3. Arrays may be redimensioned in a subroutine by using them with trimmers. 

4. Functions that are passed on CALL statements must be defined before the CALL statement. 


Example: 


190 CALL ‘‘SUBL'’:5+1,A$,#B,SIN B(,),‘ ‘YES’ 
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3.8.2. CHAIN Statement 


This statement terminates the execution of the current program and initiates execution of a specified program. 
The chained program can reside in either an OS/3 library file or in a BASIC workspace file created by the 
chaining program. The CHAIN statement allows a large BASIC program to be segmented and new phases to be 
loaded without the terminal user being involved. 


Format: 
CHAIN i } [WITH #I1[ ,4#J3,...]] 
string-expression 
where: 
#N 


Is a channel expression for a BASIC file containing a BASIC program. 


string-expression 
Is a program identifier of a BASIC program in an OS/3 library file. Its format is similar to that used on 
an OLD or RUNOLD statement. 


#1, #J3,... 
Is a list of channel expressions specifying those files to be passed to the chained program. The 
passed files are assigned sequential channel numbers, beginning at 1. That is, in the chained 
program, the first file in the list is assigned to channel 1, the second to channel 2, etc. 


Programming Notes: 


1. If the chained program is specified by a channel expression, the file must be a temporary or library 
file; a MIRAM file is not permitted. 


2. ‘If the file containing the chained program is an OS/3 library file, the file will be closed after the 
chained program is loaded. 


3. Any files not included in the file list are closed before the chained program is loaded. 
4. The chained program source is not copied into the BASIC workspace. When execution of a chained 
program completes, the original contents of the workspace when the RUN or RUNOLD statement was 


issued is still intact. 


Example: 


990 CHAIN #3 
950 CHAIN ‘‘PHASE2,PROGLIB,PACK43’° WITH #19, #1 
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3.8.3. LIBRARY Statement 


This statement informs BASIC of the names of OS/3 library files that are to be searched to find subroutines 
referenced by the program. 


Format: 


LIBRARY file [(password)][{,volume] 


where: 


file 
Is the name of an OS/3 library file. 


password 
Is the READ password for the file. It must be included in the statement if the file has been cataloged 
with a password. 

volume 
Is the name of the disk pack on which the file resides. If the file has been cataloged with a volume 
name, this parameter may be omitted. 

Programming Notes: 

1. At load time, all subroutines in the program file are loaded first. Then, if there are unresolved 
subroutine names, the files specified in the LIBRARY statements are searched. If any subroutines are 
not resolved in this manner, execution is terminated. 

2. A maximum of four LIBRARY statements are permitted in a BASIC program. 


3. If more than one library is specified, the order in which they are searched is unpredictable. 


4. In order for a subroutine to be found in a library, the SUB name must match the element name with 
which it was written to the library file. 


5. Although multiple subroutines may be stored in the same library element, BASIC will only locate 
Subroutines by the element name. Consequently, the element name must be the name of the first 
subroutine referenced in the program. 


Example: 


196 LIBRARY‘ ‘SUBROUTINES(RDPASS) , PACK33"’ 





UP-9168 Rev. 1 SPERRY UNIVAC 0S/3 3-64 





SUB 


BASIC 


3.8.4. SUB Statement 


This statement is the first statement of a BASIC subroutine. It must follow an END or SUBEND statement or be 
the first statement in a BASIC program file. 


Format: 


SUB string-constant [:param-list] 


where: 


string-constant 


Is the subroutine name, consisting of no more than eight alphanumeric characters. If this subroutine 
is to be loaded implicitly by BASIC through the use of LIBRARY statements, this name must be the 
same as its element name in the OS/3 library file. 


param-list 


Is the list of local variables passed to the subroutine. Each must have the same type (string or 
numeric) and dimension (matrix, vector, scalar, function, or file) as the corresponding parameter in 
the CALL statement. These parameters may be: 


variable 
channel setter 
function name 
array 


Four types of parameters may be specified in the param-list: 


Variable - Any numeric or string variable. The corresponding CALL statement may contain a variable 
or an expression. When the caller passes a variable, subroutine references alter the value of that 
variable; when the caller passes an expression, the parameter is a local value. The subroutine is not 
aware of the different parameter modes. However, a returned value is lost if the subroutine is called 
with an expression. 


Channel setter - Any channel constant (#1, #30, etc). References to this channel act upon the file 
passed by the caller. The file must be opened by the caller prior to calling the subroutine. Any files 
opened in the subroutine that are not included in the param-list will be local to the subroutine and 
will be closed upon exit. 


FN letter [S$] - Any user function may be defined in the SUB parameter list. Function result type and 
the types of each function parameter must be consistent with the function passed to the subroutine 
by the caller. 
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4. Array reference - Any array name may be defined here. The variable typé and number of dimensions 
must be consistent with the passed arrays. No dimension statement for these arrays may appear in 
the subroutine. Note that no dimensions are included on the SUB line, only the number of 
dimensions. 


Example: 


A(,).X$() 


Programming Notes: 


1. Each SUB statement must define a unique subprogram name. Two or more subprograms with the 
same name in the user's program will result in an error. 


2. Any variables, arrays, functions, or files not declared in the SUB line are local to the subprogram. 
Local arrays, functions, or files must be defined by the appropriate DIM, DEF, or FILE statement. 


3. A SUB statement is only valid as the first statement in a library subprogram, or after an END or 
SUBEND statement. 


4. Local variables contain unpredictable values when the subroutine is entered. 

5. DATA statements are local to the subroutine. The DATA pointers are reset to the beginning of the 
data block on entry to the subroutine, and any READ statements issued within a subprogram will not 
interfere with READS or DATA in the calling program. 


Example: 


16668 SUB‘ ‘SUB1'’:X,Y$,#3,FNS,X(,) 
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3.8.5. SUBEND Statement 


This statement is the last statement in a BASIC subroutine. If this statement is executed, control is returned to 
the caller. 


Format: 


SUBEND 


Programming Notes: 


1. The SUB and SUBEND statements delimit the subroutine. No statement within the subroutine may 
refer to a statement before the SUB or after the SUBEND. 


2. If the subroutine is loaded from a LIBRARY statement, the line numbers within the subroutine are 
local to the subroutine and, in fact, may be duplicates of lines existing in the main program. 
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3.8.6. SUBEXIT Statement 


The SUBEXIT statement terminates a subroutine and returns control to the caller. Unlike the SUBEND statement, 
the SUBEXIT may occur anywhere within the subroutine, except within a user-defined function. 


Format: 


SUBEXIT 


Example: 


983 SUBEXIT 
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3.9. CHANGE STATEMENT 


The CHANGE statement converts arithmetic and alphanumeric formats. It can change a character string into an 
array of numeric values and vice versa. 


Format: 


CHANGE string TO array [BIT expr] 
CHANGE array TO string-variable [BIT expr] 


where: 


stri 


arra 


stri 


expr 


ne 
ls any string expression, string variable, or closed string. 


y 
Is any numeric array name. 


ng-variable 
Ils the string variable that will contain the changed array. 


Is a numeric expression specifying the number of bits per character. 


Programming Notes: 


Examples: 


1069 
260 


When changing from a string to a numeric vector, the BIT expression specifies the number of bits, n, 
which are used to form pseudo characters. The first n bits of the string are used to form a decimal 
number. This value is converted to floating point and stored in the first entry of the array. Then 
processing continues with the next n bits. If extra bits remain that would not complete a full 
character, they are ignored. The total number of entries converted is stored in the zero element of the 
vector. 


When changing from a string to a vector, the vector must be large enough to accommodate all the 
character values or an error results. 


When changing from a vector to a string, the user must set element O of the vector to the number of 
vector elements to be converted. Each element in the vector from the first to the last one the user 
selects is converted to a bit string of length n. These bit strings form the new string. If element O 
contains a 0, a null string is produced. 


When changing from a vector to a string, if a converted element value cannot be represented in n bits 
or is negative, a runtime error results. Attempting to create a string greater than 4095 characters 
also results in an error. 


If omitted, the BIT parameter defaults to eight. The maximum permissible value for the BIT expression 
is 24. 


CHANGE A$ TO X(15) 
CHANGE Z TO B$ BIT 7 
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4. File Support 


4.1. INTRODUCTION 


The user can save file information permanently or retrieve it at any time using BASIC file capability. He can 
update file data, reference it in a program, or write new data to the end of a file. The type and format of these 
files are flexible, enabling the user to access files from both BASIC and batch programs. 


4.2. FILE DESCRIPTION 


Three file types are supported by BASIC: temporary files, library files, and MIRAM files. Although the file types 
may vary, the actual format of a data record processed by a given statement will not change. This allows a 
correctly written program to use the same statement to process a temporary, library, or MIRAM file 
interchangeably as long as the record content is the same. 


a Temporary files 


These files are maintained entirely by BASIC and permit the user to create and read local files without the 
overhead of allocating space on the disk. When a FILE statement declares a temporary file, BASIC allocates 
one in its workspace. When the program or subprogram terminates, these files are erased. 


if Library files 


Library files, or library elements, may be used for permanent storage of BASIC files. These files are stored 
as single librarian format elements within a SAT file, and may be accessed by the librarian, batch 
programs, and other system programs. 


Because library elements are sequential by nature and may not be extended or updated in piace, they are 
copied to the BASIC workspace and accessed there. After the BASIC program has finished with the file 
(either at program or subprogram termination or when the file’s channel number is reused by another FILE 
statement), the data is copied from the workspace back to the file and placed at the end, automatically 
deleting the old element if one exists. If no WRITE operations have taken place on the file, it will not be 
written back. 


a MIRAM files 


Unlike library files, MIRAM files do not use the workspace; they process the data in place on disk. All types 
of MIRAM files (fixed length record, variable length record, keyed, and unkeyed) can be opened, but BASIC 
permits access to these files only by using the relative record number. They cannot be accessed by key. 
When the file is opened, its characteristics are obtained from the label (record size, buffer size, or file type). 
Although any type of MIRAM file may be accessed, all records written by BASIC will be unkeyed. 
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Any number of MIRAM files may be open simultaneously; however, no more than 32 library and workspace 
files may be open at the same time. 


For a new file, BASIC will create a MIRAM file using the default MIRAM parameters. For additional 
information on MIRAM, refer to the consolidated data management concepts and facilities manual, 
UP-8825 (current version). 


All BASIC files are controlled by several parameters defining which operations will be permissible for the file, 
and how the BASIC statements will operate. These parameters are the file type (library, temporary, or MIRAM), 
margin size, current location pointer, and end-of-file pointer. The file type is determined when the file is opened 
by the FILE statement. At the same time, a margin setting is determined which limits the maximum record size 
that can be written to the file. The current location pointer and end-of-file pointer are dynamic and change 
during execution. The current location pointer is initialized to zero and points to the next record to be read or 
written to the file at any given time. After a record is read or written, the pointer is advanced by one to point to 
the next record. At any time during execution, the user may change the current location pointer via a RESET 
statement; this will take effect on the next READ or WRITE. PRINT statements do not use the current location 
pointer, but always output records using the end-of-file pointer. This pointer is set to write records immediately 
following the last record in the file and is incremented once for each record written. The end-of-file pointer can 
only explicitly be reset by a SCRATCH statement, which erases the entire file contents and repositions both 
pointers to the start of the file. 


Records in BASIC are numbered beginning with O; the first record is at location O, the second at location 1, and 
so on. The end-of-file pointer is always set to the last record in the file plus 1, so, if the file contains 105 records, 
the last record will be at location 104 and the end-of-file pointer will contain a value of 105. 


BASIC files are composed of one or more records, with each record containing data in some user-defined format. 
Certain BASIC statements (such as INPUT) make assumptions as to the format of the data, and will scan off data ® 
from the records field by field. Other statements make no assumption as to the format, and allow the user to 

retrieve entire records and perform the field separation and conversion himself. When outputting records to the 

file, the user can format the entire record in a string variable and write it to the file (WRITE) or he can allow 

BASIC to perform the formatting and editing for him via the PRINT USING capability. 





In general, field separation for file records follows the same rules as for data input from the terminal. On output, 
however, the user program must supply the separators that will be expected by BASIC when the file is read. 
When BASIC performs the field separation functions for the user, certain restrictions apply to the format of the 
data in the records. Numeric fields are composed of an optional sign, a series of digits with an optional decimal 
point, and an optional exponent field. The field must either terminate the record, or end with a comma. String 
fields may be either opened or closed, and must either terminate the record or end with a comma. Closed string 
must begin and end with a quote ("‘) and must be the only data in the field. Quotes required within closed strings 
may be entered as two successive quote characters. 


When numeric variables are read via the INPUT statement, the field used to supply the next value must be a 
numeric field or a fatal error will result. With string variables this is not a problem because the string contents 
may, in fact, be numeric digits. 

The user must be aware of these restrictions if a file is to be created by BASIC and then read via INPUT 
statements; commas for field separators must be written explicitly to the file. For example, if a BASIC program 


would read data with the statement: 


16 INPUT #3: A,B,C : 


the record would have to look similar to: 





45.2, 45.6, 54.2 
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One statement to create this record could be: 


23: PRINT B320A1) 25", 7 "3 BI OP 41 


Note that because BASIC is performing field separation, and fields may either terminate the record or end with a 
comma, records to supply data for this INPUT could be any of the following examples: 


45.2 
45.6 
54.2 


45.2, 45.6 
54.2 


45.2, 45.6, 54.2, 64.7 


In the last example, the value 64.7 would not have been read by the INPUT statement, but would be retained for 
the next INPUT (assuming the user does not reposition the file). 


To uniquely identify each file, a channel number is required. The channel number to be used for a file is defined 

by the user in the FILE statement and must be in the range O to 4095. Once a file has been defined in the FILE 

statement, any future references to that channel number will initiate an access to that file. One special case of 

the channel number is channel 0, which is always defined to be the terminal. Statements such as PRINT, INPUT, 

and LINPUT may explicitly reference channel O to access the terminal, but normally no channel setter is specified 
& because the statements default to the terminal. 


4.3. FILE STATEMENTS 


There are 10 BASIC statements and 5 matrix I/O statements used for files. A brief description of each file 
statement is shown in Table 4-1. These statements apply to all file types and perform the same function 
regardless of the file. This means that a program could be written with a sequential file in mind, but may also be 
used with a library file without program changes. 


Table 4—1. BASIC File Statements (Part 1 of 2) 


FILE The FILE statement is used to declare a file and assign it to a channel number. This statement 
causes the file to be located on disk and opened for use. Once a file has been assigned to a 
channel number, any future references to that channel will refer to that file. 


One of the statements used to read data from a file is INPUT. Variables listed in the INPUT 
statement are filled by scanning values from the record. More than one value may be present 


in a record; each will be scanned off and assigned as needed to supply values for INPUT 
requests. Multiple data values on a single record must be separated by commas. 


Normally, records are read sequentially beginning with the first in order to obtain values for 

INPUT requests. The user, however, may change this by resetting the value contained in the 

current location pointer. This would cause a new record at the specified location in the file to 
@ be read to supply values for the next INPUT requests. 
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Table 4—1. BASIC File Statements (Part 2 of 2) 


LINPUT 
MARGIN 


Matrix 1/0 
PRINT 


READ 
RENAME 


RESET 
SCRATCH 


Entire records can be read into a single-string variable using the LINPUT statement. This 
enables the user to make use of the string and conversion functions in BASIC to strip off fields 
in the record when the format of the data values is not standard. 


As with the INPUT statement, LINPUT reads the file sequentially to fill the variables in the 
LINPUT list, but may be forced to begin reading records at a new location within the file by 
resetting the current location pointer. 


All files in BASIC have a margin size that corresponds to the size of the largest record which 
may be written to that file. The default margin size for all files is 256 characters. The margin 
size will be set to the record size when a MIRAM file is opened. Most other files will receive 
the default margin setting. The MARGIN statement may be used to change the margin value 
during program execution. 


When used with files, the matrix |/O statements may be used to perform selected operations 
on all elements of the matrix (except row and column Q). The user can use trimmers to 
dynamically change the array dimensions during execution. , 


The PRINT statement may be used with files to write string or numeric data. Records written 
as a result of the PRINT statement are always appended to the file at the end, and the end-of- 
file pointer changed to show a longer file. Thus, PRINT corresponds to a sequential extension 
of the file. 


The READ statement is similar to the LINPUT statement, but may be used with string or 
numeric variables. When used with string variables, the statement functions identically to the 
LINPUT statement. When used with numeric variables, a record is read that is expected to 
contain a single numeric data item. This value will be converted to floating point and assigned 
to the numeric variable. 


As with the LINPUT statement, READ will access records sequentially unless the current 
location pointer is altered, in which case it will begin reading records at the new location. 


The RENAME statement provides the capability to change the name of an open file. When 
used with library files, BASIC discards the original name and notes the new name for use 
when the file is closed. MIRAM files may not be renamed. 


The RENAME statement may also be used with temporary files to change a temporary file to a 
library file (instead of scratching the file when it is closed, it will be written to a library), or a 
library file may be renamed to a temporary file (it will not be written back when closed, leaving 
the original copy intact). This facility may be used to create a new library element, by opening 
the file as a temporary file (*), and renaming it to a library element. 


The RESET statement is used to reset the current location pointer in order to change the 
position in the file where INPUT, LINPUT, READ, and WRITE statements will operate. Certain 
restrictions apply to the use of RESET depending on the file type. 


The SCRATCH statement will erase the contents of a file. The file is not closed by this 
statement, so PRINT or WRITE statements may be used to write new data to the file. Note that 
when the file is scratched, the end-of-file pointer and current position pointer are both set to 
the beginning of the file. 


The WRITE statement is used to output variables, one per record, to the file. Either numeric or 
string variables may be used with the WRITE statement. When numeric values are written, 
they are converted to display format, padded with spaces if necessary to fill the record, and 
written at the current file pointer. The pointer is advanced once for each record written. String 
values are written in a similar manner to numeric values, except that no conversion is 
required. 
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4.3.1. FILE Statement 


The FILE statement is used to assign a file to a channel number. The channel number must specify an integer 
value between 1 and 4095. The file name must be in a format compatible with the type of file being opened. The 
three types of files supported by BASIC (temporary, OS/3 library, and MIRAM files) are assigned using the FILE 
statement and either positional or keyword parameters. 


a Positional parameters must be written in the order specified and must be separated by commas. When a 
positional parameter is omitted, the comma must be retained to indicate the omission, except for the case 
of omitted trailing parameters. 

t A keyword parameter consists of a word or a code immediately followed by an equal sign, which is, in turn, 
followed by a specification. Keyword parameters can be written in any order. Commas are required only to 


separate parameters. 


If a previous file had been assigned to the same channel number, that file is closed before the new one is 
opened. 


Format: 


g& FILE channel-setter: ‘‘string-expression'’ 


where: 


channel-setter 
Identifies the channel number assigned to the file. All future references to the file use this number. 


““string-expression’' 
Is a string expression identifying the file that is being opened. Its exact format varies with the 
different types of files available. The string-expression must be enclosed in “(double quotes). 


NOTE: 


Shaded areas in the following formats indicate the default; underlined letters indicate that the system will accept 
a portion of the keyword. 


Temporary file format: 


filename 
where: 
filename 


Must be specified with an asterisk (*). 
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OS/3 library file positional parameter format: 


modutename,filename[(readpassword/writepassword)]{,volume][,module-type] 


OS/3 library file keyword parameter format: 


MODULE=modulename ,FILENAME=({ filename [. RDPASS=readpassword] 


‘filename’ 
‘*filename’’ 


[ WRPASS=writepassword][,VSN=volume]|,DEVICE=faddr 





[.TYPE=module-type] 


where: 


MODULE=modulename 
Specifies the name of the module referenced. It can be one to eight alphanumeric characters. 


FILENAME=]{ filename 
‘filename’ 
‘'filename’’ 
Specifies the name of the library file being referenced. The physical file names may be 1 to 44 
alphanumeric characters. If there are spaces, commas, or parentheses embedded in the file name, it 
must be enclosed in either quotation marks or apostrophes. 


RDPASS=readpassword 
Specifies a password used to control the read access to a file being referenced. A password is required if 
the file is listed with a password in the file catalog. If the file is to be cataloged and file protection is 
desired, the user must specify passwords. Passwords may be one to six alphanumeric characters. 


WRPASS=writepassword 
Specifies a password needed to control the write access to the file being referenced. A pasword is 
required if the file is listed with a password in the file catalog. If the file is to be cataloged and file 
protection is desired, the user must specify passwords. Passwords may be one to six alphanumeric 
characters. 


VSN=volume 
Specifies the volume serial number indicating the volume on which the file the user wants to access 
resides. The volume serial number is required if the file is not cataloged and may be one to six 
alphanumeric characters. 


DEVICE=/( addr 





DISKETTE 
Specifies the type of device read from or written to by the user. addr specifies a 3-digit hexadecimal 
number indicating the physical device address of the device the user wants to use. The first digit is the 
channel number, the second the control unit address, and the third the device number. If a device is not 
specified, the parameter will default to DISK. 
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TYPE=module-type 
Specifies the type of module being referenced. The module-type is indicated by entering a letter 
corresponding to the module-type the user wants to reference. For SAT files, the types permitted are: 
source S, macro M, procedure P, load L, and object O. For MIRAM files, specify format F, saved job 
control stream J, or one of many other types. The user may also create his own module-types and 
identify them with a 1- to 4-character name. A module-type can serve as a qualifier for a module. The 
default is S. 


OS/3 MIRAM file positional parameter format: 


‘filename'{(readpassword/writepassword)][,volume] 


OS/3 MIRAM file keyword parameter format: 





FILENAME={ filename [, RDPASS=readpassword][ ,WRPASS=writepassword] 
‘filename’ 
‘'filename’’ 
[.VSN=volume]}],DEVICE=faddr ,INIT=/YES /RCSZ={record size 
“ Pe ale ] 
DISKETTE 


where: 


FILENAME=/ filename 
‘filename’ 
‘'filename’’ 
Specifies the name of the MIRAM file being referenced. The physical file name may be 1 to 44 
alphanumeric characters. If there are spaces, commas, or parentheses embedded in the file name, it 
must be enclosed in either quotation marks or apostrophes. 


RDPASS=readpassword 
Specifies the read access to a file being referenced. A password is required if the file is listed with a 
password in the file catalog. If the file is to be cataloged and file protection is desired, the user must 
specify passwords. PaSswords may be one to six alphanumeric characters. 


WRPASS=writepassword 
Specifies a password needed to control access to the file being referenced. A password is required if 
the file is listed with a password in the file catalog. If the file is to be cataloged and file protection is 
desired, the user must specify passwords. Passwords may be one to six alphanumeric characters. 


VSN=volume 
Specifies the volume serial number indicating the volume on which the file the user wants to access 
resides. The volume serial number is required if the file is not cataloged and may be one to six 
alphanumeric characters. 


DEVICE=f(addr 





DISKETTE 
Specifies the type of device read from or written to by the user. addr specifies a 3-digit hexadecimal 
number indicating the physical device address of the device the user wants to use. The first digit is 
the channel! number, the second the control unit address, and the third the device number. If you do 
not specify a device, the parameter will default to DISK. 





UP-9168 Rev. 1 SPERRY UNIVAC 0S/3 4-8 
BASIC Update B 


rr 9 


[T= 





Specifies the overwriting of the contents of a file with new data. If YES is specified, whatever data is 
presently in the file will be overwritten and a new file started. If NO is specified, the old data will 
remain intact and new data will be added to the end of the file. If neither YES or NO is specified, the 
parameter defaults to NO. 


ace aie 





Specifies the size of the record that BASIC is to process. This parameter incorporates the margin size 
statement in that the following are identical: 


100 FILE #1: “,MIRAMFILE,PACK” 
200 MARGIN #1: 512 


is equivalent to: 
100 FILE #1: “,MIRAMFILE,PACK,RCSZ=512" 


The default value is 256 characters. 
Programming Notes: 


1. The FILE statement opens a BASIC file. Files are closed when a second FILE statement is issued for 
the same channel number or when the program terminates. Local files opened by subprograms are 
closed when the subprogram terminates (SUBEXIT or SUBEND). 


2. If the file name specifies an asterisk (*), then the file is a temporary file maintained by BASIC in its 
workspace. The file is scratched when it is closed. 


3. If the file name specifies an OS/3 library file, the file is copied to the BASIC workspace when it is 
opened. Once in the workspace, the file is identical to a temporary file except that it will be copied 
back to the library when it is closed. The library file must be copied because the format of an OS/3 
library file does not permit updating records in place or extending an element. 


4. lf the file name specifies a MIRAM file, the file will not be copied; BASIC processes these files in 
place. When the file is opened, its characteristics will be obtained from the VTOC. These will 
determine the record size (MARGIN) and types of access permitted. 


5. BASIC processes MIRAM files and permits access to these files only by using relative record number. 


6. BASIC processes files with record sizes up to 16K bytes and buffer sizes up to 32K bytes. Within 
these limits, any record sizes and buffer sizes are permitted. 


7. MIRAM files must exist before they can be opened by a FILE statement. If, upon opening a file, it is 
found to be empty, the default margin size is taken (256), the record and buffer sizes are set to the 
margin size, and the file is assumed to have fixed length records. This is the BASIC default file 
specification. 
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Examples: 


1098 
209 
369 
408 
589 
600 
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A library element must exist before it can be accessed by a FILE statement. If a new element is to be 
created as a BASIC file, it should be built as a temporary file with a margin not greater than 256 


characters, and changed to a library element prior to being closed with the RENAME statement. (See 
4.3.8.) 


If the file has been password protected, the correct passwords must be entered in the FILE statement. 
Failure to enter the READ password (if required by the catalog) will inhibit any READ operations. 
Failure to correctly enter the WRITE password (if required) will inhibit any WRITE operations. If a file 
has both the READ and WRITE passwords cataloged and neither is specified by the user, access to 


the file will be denied (the program could not do anything regardless because both READ and WRITE 
would be inhibited). 


FILE #F9:F9$ 

FILE #1:‘°‘DATA,BASICLIB,DISK#3'' 
FILE #4000:'‘*'’ 

FILE #D:'‘‘MIRFILE’,DISK@1'’ 

FILE #10:N1$&'’, LIBRARY, PACKG2'' 
FILE #47: ‘*PAYROLL''(A234/A432)'' 
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4.3.2. INPUT Statement 


The INPUT statement allows the user to read a list of values from a record in the file. These values must be 
formatted in the record just as they have to be formatted if entered at the terminal as an INPUT response. If there 
are insufficient values on a given record, BASIC continues reading records until it has filled all of the variables in 
the program's “‘input list’. Unlike input from the terminal, there is no relationship between the structure of the 
INPUT statements and the records in the file. Thus, example 1 and example 2 are functionally identical. 


Data items read by INPUT statements are taken from fields within the records and may be numbers, open 
strings, or closed strings. If the wrong type of data is supplied for a variable in the input list, a fatal error will 
result. When strings are read in, leading and trailing spaces are deleted unless the string in the field is enclosed 
in quotes. When quotes are used, the characters within the quotes are assigned without any editing. Note that to 
output quotes to a record they must be explicitly printed as in example 3. 


Format: 


INPUT channel-setter : variable[,variable...] 


where: 


channel-setter 
Selects the file to be read. 





variable 
ls a numeric or string variable or array element. 


Programming Notes: 


1. Records required by INPUT requests are retrieved sequentially beginning with the first record in the 
file. The current location pointer is incremented immediately when a record is read, not when all 
fields in the record have been processed. The RESET statement may be used to change the location 
where the next record will be read. 


2. More than one data field is permitted on a single record. If an INPUT statement does not exhaust all 
fields in a record, the remaining fields are retained for subsequent INPUT statements. The remaining 
fields will be lost if output is written to the file or the current location pointer is changed; subsequent 
INPUT statements will force a new record to be read. 


3. Numeric data fields contain leading or trailing spaces, must contain a valid number, and must end 
with a comma or be the last field in the record. It is not an error to supply a numeric data field to a 
string variable on INPUT; the character string consisting of the numeric digits will be used. 


4. String data fields may be open or closed strings. Open-string fields may contain any valid characters 
and terminate with a comma or at the end of the record. Closed strings must begin and end with 
quotes (“’). Leading spaces before the first quote are permitted, as are trailing spaces between the 
last quote and the comma or end of record. A fatal error will result if a string data field is supplied for 
a numeric variable. 
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Example 1: 


196 INPUT #1:A,B(5),C$ 


Example 2: 


166 INPUT #1:A 
191 UNPUT #1:B(5) 
1692 INPUT #1:C$ 


Example 3: 


16968 LET A$='' '' '' ''(or CHRS$(EBC(‘’))) 
110 PRINT #124:A$ &°‘ABC’’ & A$ 

126 RESET #124: LOF(#124)-1 

130 INPUT #124: R3$ 


This example writes a record containing 


“*ABC’' 


to the file. Statement 120 repositions the current location pointer to the end-of-file record minus one, 
which is the new record. This value can then be read into variable R3 without losing any spaces that may 
be significant. It is important to note that statement 110 was not coded as 


118 PRINT #124: ;A$ ;‘‘ABC'’';A$ 


because it is possible (although unlikely) that one of the three fields in the second format could fill the 
record and, thus, two records could be printed: 


** ABC 


oe 


Concatenating all three fields ensures that they will be printed as one string. 





UP-9168 Rev. 1 SPERRY UNIVAC OS/3 4-12 
BASIC 





LINPUT 


4.3.3. LINPUT Statement 

The LINPUT statement allows the user to read in entire records; each record is read into a single string variable. 
Because the record contents are ignored when this assignment is made, any data may be read into a string from 
the file. This permits the user to read a record and strip off fields via the string functions in cases where an 
INPUT statement would not find the data in the correct format. Completely blank records are permitted and are 
stored in the string variable as null strings. 


Format: 


LINPUT channel-setter:string-variable[,string-variable...] 


where: 


channel-setter 
Selects the file to be read. 


string-variable 
Is a string variable or string array element where the record contents are to be stored. 


Programming Notes: 





1. If the last statement issued to the file was an INPUT and there is still data in the record which has not 
been read, LINPUT will use the remaining characters in the record instead of requesting a new 
record. The next variable to use LINPUT will then force a record to be read. 


2. if the last statement issued to the file was other than an INPUT, or if it was an INPUT and there is no 
data remaining in the record, a new record will be read for the string variable. 


3. Records required for LINPUT requests are retrieved sequentially beginning with the record at the 
current location pointer and the pointer is incremented for each record read. In other words, the 
record is incremented once for each variable in the LINPUT list. The RESET statement may be used to 
alter the location where the next LINPUT will begin retrieving records. 


4. Leading spaces in records are not removed. Trailing spaces are eliminated. 
Examples: 
946 LINPUT #1:A$ 


956 LINPUT #1:B1$ , C$(3,4) 
960 LINPUT #4:D$(E+1) 
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4.3.4. MARGIN Statement 
The MARGIN statement permits the user to change the current margin setting for a file. The initial margin 
setting is determined when the file is opened. For temporary and library files the default margin is used (256 
characters). Existing MIRAM files acquire a margin setting from the maximum record size specification stored in 
the VTOC entry for the file. 
Format: 

MARGIN channel-setter:expression 


where: 


channel-setter 
Identifies the channel number of the file to be altered. 


expression 
This value will be truncated to an integer value and used as the new margin setting. 


Programming Notes: 


1. The current margin setting limits the maximum record size that may be written to the file. Any 
attempt to exceed this limit will cause an error. 


2. ‘If the margin is changed while there is a record waiting to be completed (as a result of a PRINT 
statement ending with a comma, for example), the record being formatted will be written out prior to 


changing the margin. 


3. The margin expression must result in a number between 1 and the following limits: 


Temporary files 496 characters 
Library files 256 characters 
MIRAM files 16K charactérs 


4. A temporary file or library file receives a default margin specification of 256 characters, which may 
be changed at any time after the FILE statement has been issued. 


5. The margin size for a MIRAM file may only be changed when the file is empty and no data records 
have been formatted. This condition occurs if an empty file is opened, or immediately after a file has 


been scratched. 


6. When the MARGIN statement is used on a MIRAM file, the string expression in the FILE statement 
must not contain any blanks. 


7. The MARGIN statement and the RCSZ FILE statement parameter can't be used together on the same 
file. For example: 


10 FILE #1:‘',MIRAMFILE, VOLUME, INIT=YES,RCSZ=512 °' 
is the same as: 


if FILE #1:‘',MIRAMFILE, VOLUME’ 
15 MARGIN #1:512 
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Examples: 


19 MARGIN #3:88 
26 MARGIN #1:29°W 


4.3.5. Matrix |1/O Statements 





To simplify the handling of matrixes when they are used with files, five matrix |1/O statements are provided in 
BASIC. These statements perform the selected operation on all elements of the matrix except those in row and 
column 0. Processing for vectors begins with element 1 and continues to the last element in the vector. Arrays 
are processed beginning with element 1,1, then 1,2, continuing to 1,n, then row 2, row 3, and so on. 


Supported statements include matrix PRINT, INPUT, LINPUT, READ, and WRITE. In general, the statements work 
just as if each matrix element were coded in the statement. For example: 


MAT PRINT #3:A; 


is interpreted as: 


PRINT #3: A(1,1);A(1,2);A(1,3);...;ACQ1, 0); 
PRINT #3: A(2,1);5;A(2,2);A(2,3);...:A(2,n); 
PRINT #3: A(m,1);A(m,2);A(m,3);...:;A(m,n) 


Trimmers, when used, dynamically change the array dimensions during execution. This change is made just 
prior to performing the indicated file operation. 


Formats: 


MAT PRINT channel-setter:matrix[separator{matrix]],... 
MAT INPUT channel-setter:matrix[(trimmer)],... 

MAT LINPUT channel-setter:string-matrix[(trimmer)],... 
MAT READ channel-setter:matrix[{(trimmer)],... 

MAT WRITE channei-setter:matrix,... 


where: 


channel-setter 


Selects the previously opened file for the indicated file operation. Channel 0, the terminal, may not be 
specified for MAT READ or MAT WRITE. 


matrix 
Is a string or numeric matrix name. 


string-matrix 
Is the name of a string matrix. Numeric matrixes are not permitted with this statement. 


separator 


Is a PRINT item separator, such as a comma or semicolon, and determines the spacing of the printed 
elements in the record. 


trimmer 


Is an optional matrix trimmer expression. This specifies the new matrix dimensions to be applied 
before the indicated operation is performed. 
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Programming Notes: 


1. 


Examples: 


126 
122 
123 
124 
125 
126 
127 
128 
129 


A trimmer may be used with the MAT INPUT, LINPUT, or READ statements to dynamically 
redimension the matrix. This trimmer may not change the number of subscripts for the matrix. The 
new dimension may not cause the new matrix to have more elements than did the original definition, 
or an error will result. 


The MAT PRINT statement for files uses commas and semicolons to control spacing of elements in 
the records. If the matrix name is followed by a semicolon, the elements are printed closely packed. A 
comma following the matrix name causes the elements to be printed in 15-character columns. Each 
row begins a new line. If no print separator follows a vector, it is written as a column vector, one 
element per record; otherwise, it is printed as a row vector. The rules used in printing records to files 
are defined in 4.3.6. 


The MAT INPUT, LINPUT, READ, and WRITE statements for files perform the indicated operation once 
for each element in the matrix. The rules covering the file INPUT, LINPUT, READ, and WRITE 
statements are defined in 4.3.2, 4.3.3, 4.3.7, and 4.3.11, respectively. 


DIM A(7),C$(3,5),D(2,8),E$(5),K(9),J$(4),K$(2,4),R( 28) 
MAT PRINT #3:A,E$;C$ 

MAT PRINT #3:D; 

MAT READ #3:R,E$ 

MAT INPUT #4:K,E$(J) 

MAT LINPUT #78:K$,J$ 

MAT WRITE #1:K$,R,A 

MAT READ #1+1:K$(3),A(3) 

MAT LINPUT #41:D(2,1) 
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4.3.6. PRINT Statement 


The PRINT statement may be used with any file accessible under BASIC to format all or portions of a record. The 
list of variables specified on the statement are written one after the other according to the print separators used 
between each item in the print list. 


Any records written with a PRINT statement are always appended to the end of the file (the file will get longer). 
As each record is written, the end-of-file pointer is incremented by one to allow reading of all records up to and 
including the newly printed one. Resetting the current location pointer has no effect on the PRINT statement. 


The PRINT 


statement is also affected by the MARGIN setting. If the user attempts to print more data in a single 


record than the margin will allow, BASIC then prints as many fields as it can on the first record and continues on 
a second record. No single data item longer than the margin setting can be printed. 


Format: 


PRINT channel-setter:[item[separator[item]]...] 


where: 


channel-setter 


item 


sepa 


Is the file to which this record will be written. 


Is an expression or a TAB reference. 


trator 
Is a comma (,) or a semicolon(;). 


Programming Notes: 


Print separators may be used to control horizontal positioning within a record. tf a semicolon is used 
after an item, the next item will be printed beginning at the next position in the record. If a comma is 
used, the next item will be printed beginning at the next 15-character field in the record (the record is 
broken into fields of 15 characters each and the next free field is used). If there is insufficient space 
in the current record, it is written out and a new record begun. 


The TAB function may be used to advance to a specific position in the record. If the direction of the 
TAB is backwards, the current record is written out and a new record begun. The function of the 
comma and semicolon remains unchanged. 


Null strings cause no data to be written to the record. 


Numeric data is formatted either as an integer or decimal number. An integer number will be printed 
as an integer. A decimal number wili be printed without the exponent field whenever possible. In 
either case, no more than six significant digits will be printed and a space will follow every number 
printed. If the number is positive, the sign is not printed but its print position is left blank; otherwise, 
a minus sign is printed. 
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5. If the statement ends with a separator, the record will not be written immediately, but will be held 
until another PRINT statement completes the record, or any other statement references the file. 


6. If there are no items included in the list, the PRINT command will serve to write a previously 
unprinted record, or to print a blank record if the buffer is empty. 
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4.3.7. READ Statement 


The READ statement is somewhat similar in function to the LINPUT, in that there is a one-for-one 
correspondence between variables in the statement and records in the file, except that both string and numeric 
variables are permitted. When used with string variables, READ will retrieve a record and assign its contents 
without editing to the variable. When a numeric variable is specified, a record is read that must contain a single 
numeric value. This value is converted to floating point and stored in the variable. 


Format: 


READ channel-setter : variable-name{,variable-name... ] 


where: 


channel-setter 
Specifies the channel number of an open file to be read. Channel 0, the terminal, may not be 
referenced by this statement. 


variable-name 
!s a string or numeric variable or array element into which the data is to be read. 





Programming Notes: 


1. One record is read beginning at the current location pointer for each variable in the list. For each 
record read, the current location pointer is incremented by one. Changing the current location pointer 
via a RESET will select the location of the next record to be read by the READ statement. 


2. READ does not check if the last operation on the file was an INPUT (as LINPUT would), but always 
reads new records. 


3. When reading string variables, the entire record including any leading spaces is assigned without 
editing to the variable. Trailing spaces in the record wil! be eliminated. 


4. When reading numeric variables, the entire record may contain only a single number; it will be 
converted and assigned to the variable. If the record contains any data other than a single number an 
error occurs. 


Examples: 
43 READ #43: A$,B4$,C$(H) 


44 READ #44:A,B7,C(1,J)) 
45 READ #37:0,E8$ 
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4.3.8. RENAME Statement 


The RENAME statement will change the name of a BASIC file while it is contained in the workspace. In 
particular, it permits a library file element to be copied or created. 


Format: 


RENAME channel-setter:file-name 


where: 


channel-setter 
Is a channel expression identifying an open file which is to be renamed. 


file-name 
Is a string expression specifying an OS/3 library file or a work file. Its format is. similar to the file 
name used with a FILE statement. 


Programming Notes: 


1. Permanent MIRAM files may not be renamed. An attempt to do so will terminate execution of the 
program. 


2. A temporary file may be renamed to a library file in order to create a new element ina library file. 


3. A library file may be renamed to a temporary file in order to prevent the original copy of the file from 
being updated when the file is closed. 


4. If the programmer wants to ensure that a file is not updated unless a specific condition occurs first, 
he should open the library file and immediately rename it as a temporary file. Then, if an error should 
occur during processing or if the terminal user should terminate the program, the library file will not 
be updated. Once the program has determined that the file is complete, the file can be renamed to a 
library file so that when it is closed, the library file will be updated. 


5. If a program opens a library file with name A, processes the file, renames it B, and then terminates, 
the original copy of A will not be modified and a new modified version will exist with the name B. 


Examples: 


1945 RENAME #1:‘‘*'’ 
2674 RENAME #N:‘ ‘NEW, LIBRARY, PACKS9' ’ 
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4.3.9. RESET Statement 
The RESET statement is used to reposition the current location pointer to any location within the file. The 
statement may be used with or without a record number. When the record number is omitted, RESET goes to the 
beginning of the file - record O. 
Format: 

RESET channel-setter{:numeric-expression] 
where: 


channel-setter 
Selects the file to be repositioned. 


numeric-expression 
Is the new location of the file. 


Programming Notes: 


1. The numeric expression, if present, must result in a nonnegative number and the new location must 
not be greater than the current value of the end-of-file pointer. 


2. A RESET statement without a record number is permitted to position any file type to the start of the 
file. 


3. A RESET statement with a record number can be used with temporary or library files, or with MIRAM 
files. 


Example: 


35 RESET #4 
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4.3.10. SCRATCH Statement 


The SCRATCH statement is used to erase the entire contents of a file. If the file is a temporary or library file, the 
scratch will only operate upon the workspace; the library file itself will not be affected. If the file is a MIRAM file, 
the scratch will erase the contents of the file. If there is no subsequent operation to the file, the file will be 
scratched from the disk. 

Format: 


SCRATCH channel-setter 
Programming Notes: 


1. If a MIRAM file is to be physically scratched from the disk, the SCRATCH operation should be the last 
operation issued against the file by the BASIC program. 


2. ‘If a MIRAM file is to be rewritten from the beginning, then the SCRATCH operation should be issued 
prior to writing to the file. 


3. After a SCRATCH command, both the LOC and LOF of the file will be O. 
4. SCRATCH currently has no effect for library files. 


Example: 


184 SCRATCH #6 
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4.3.11. WRITE Statement 





The WRITE statement writes a list of variables to the file, one value per record. String text is written without any 
editing other than space filling if necessary. Numeric values are converted to display format and padded with 
spaces to fill the record. Depending on the position of the current location pointer, records are either updated or 
appended to the end of the file. 


Format: 


WRITE channel-setter:expression[{,expression... ] 


where: 


channel-setter 
Specifies the channel number of the open file to which records are to be written. Channel 0, the 
terminal, may not be referenced by this statement. 


expression 
Is either a string or numeric expression to be written to a record in the file. 


Programming Notes: 


1. Each variable occupies one record, which is written at the position in the file specified by the current 
location pointer. After each record is written, the pointer is incremented. The RESET statement may 
be used to set the location where records will be written. 


2. If the current location pointer is set to the end-of-file value, a new record will be added to the file and 
the end-of-file pointer advanced. If the current location pointer is set less than the end-of-file value, 
the record which was there will be overlaid by the new record, creating an update. The current 
location pointer may not be set past the end-of-file pointer. 

3. Data to be written to the file may not be greater in length than the current margin setting for the file. 

4. The WRITE statement may be used with temporary files, library files, and MIRAM files. 


Examples: 


8718 WRITE #18: ‘RECORD ONE'’'’,‘ ‘RECORD TWO'’ 
8720 WRITE #18:3,4,Q5 
87308 WRITE #18:A+6,B$,C4$(8),SEG$(D$,1,9) 
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5. BASIC Commands 


5.1. INTRODUCTION 

This section contains a detailed description of the operation and editing commands provided by the BASIC 
system. These commands enable the programmer to assign a name to a program, execute a program, and return 
control to the system. Editing commands are distinguished from source statements by the absence of prefixed 
line numbers. Once entered into the BASIC system, the editing command operates immediately on the current 
contents of the user’s workspace, which can contain either a new program (being constructed) or a saved 
program. 

The editing commands provided by BASIC provide the ability to enter, delete, list, and modify text on a single or 
multipie line basis. When extensive modifications must be made, the user should consider using EDT. 
5.1.1. Definitions 

The following syntactic units occur several times in the specification of the editing commands: 

a line-number: a series of digits in the range of 1 to 99999 


list-items: ReRane (c ore [. list-items] 
,list-items 


a cae (password)[{,volume } 
,volume 


a search-string: ‘‘characters” 
Programming Notes: 
1. Letter and digit are defined in Section 2. 


2. A program name may contain from one to eight letters or digits, the first of which is a letter. 
Embedded characters such as §$, ?, #, @, %, and hyphen may be included in this program name. 


3. A file name may be up to 44 characters long. The same character construction rules which apply to 
program names also apply to file names. : 
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A password may be up to eight characters long. The same character construction rules which apply 
to program names also apply to passwords. A password may be required if the file specified by file 
name has been cataloged with a password. When reading from a file (OLD), the read password may 
be required. When writing to a file (SAVE), the write password may be required. If the file is not 
cataloged, or no password is listed in the catalog, then the user’s password specification, if any, is 
ignored. 


A volume must be six characters and is made up of letters and digits. This name is used to locate the 
disk on which the referenced file exists. If the file is cataloged and a volume name has been listed, 
then the user may omit the volume entry. In any case, if a volume is listed, this overrides the catalog 
volume name. 


All library file references refer to source elements, which may have been created by the OS/3 
MIRAM librarian (MLIB), OS/3 general editor (EDT), or OS/3 BASIC. 


All references to the system apply to the OS/3 BASIC System. 


A search string is constructed in the same way as a closed string, and allows the user to selectively 
process source statements based on their content. 


5.2. COMMANDS 


The editing commands available to the user are given as follows: 


BYE 


DELETE 


HELP 
LIST 


MERGE 
MODIFY 


NEW 
OLD 


PRINT 
RESEQUENCE 


RUN 


RUNOLOD 


SAVE 


SYSTEM 
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BYE 


5.2.1. BYE 


The BYE command is used to terminate BASIC. Control is returned to the system. All workspace information is 
lost. 


The following message is displayed on the terminal: 
BA113 BASIC TASK NORMAL TERMINATION 


The BYE command does not return a response. 


Format: 


BYE 
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DELETE 


5.2.2. DELETE 


This command may be used to delete one or more lines of source from the user’s workspace. If no line numbers 
are specified, the entire program is cleared. 


Format: 


DELETE [list-items ] [search-string] 


Note that single lines may be deleted by typing the line number of the line to be deleted. If a search string is 
specified, then the selected lines will be searched and those containing the string will be deleted. 
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HELP 


5.2.3. HELP 


Additional information about a status or error condition may be obtained by using the HELP command. Several 


lines of explanation will be displayed at the terminal. {f a message number is not specified, BASIC displays a 
HELP message for the latest input syntax error. 


Format: 


HELP [message-number ] 
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LIST 


5.2.4. LIST 
The LIST command directs the system to display on the user’s terminal the lines or sequence of lines referenced 
in the user’s workspace. If no line numbers are specified, all statements in the program will be printed. If a 


search string is specified, then the selected lines will be searched and those containing the string will be printed. 


Format: 


LIST [list-items] [search-string] 
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MERGE 


5.2.5. MERGE 


The MERGE command allows the contents of a library file to be added to the current contents of the workspace. 
Its function is identical to that of the OLD command, except that the workspace is not erased first. 


Format: 
MERGE file-parameters 


Programming Note: 


If lines are read that duplicate the line numbers of lines already in the workspace, the new lines replace 
the old. 
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MODIFY 


5.2.6. MODIFY 


This format is used to correct or reenter a source statement from the terminal. The format is entered as if a new 
statement is being input. Any statement with the same line number is deleted and the new statement is 


substituted in its place. 


Format: 


line-number statement 
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NEW 


5.2.7. NEW 


The NEW command erases the current contents of the user's workspace. BASIC will then respond with an 
asterisk. BASIC is now in the same condition it would be in if the user had just executed it from the system. 


Format: 


NEW 
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OLD 





5.2.8. OLD 


The OLD command erases the current contents of the user’s workspace, then locates and loads the specified 
program into the user’s workspace. 


Format: 


OLD file-parameters 


Programming Notes: 


1. Errors may occur when BASIC is trying to locate the program if the disk volume, disk file, or element 
cannot be found. Errors may also occur if a password is required but not specified in the command. 


2. As statements are read from the library file, each is verified by the syntax checker. Any statements in 
error are displayed on the user’s terminal, and are entered into the program file, with a notation that 
the line is not valid. This permits the LIST command to show these lines so the user may later correct 
them. 


3. Once all statements have been processed, control is returned to the terminal where new statements 
may be added, corrections made, or editing commands entered. 





4. Ifa RUN is issued while there are still uncorrected lines from a previous OLD command, the lines 
which are in error will be rejected. 
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PRINT 


5.2.9. PRINT 


The PRINT command directs the system to display on the user's terminal the lines or sequence of lines 
referenced in the user's workspace. If no line numbers are specified, all statements in the program will be 


printed. If a search string is specified, then the selected lines will be searched and those containing the string 
will be printed. 


Format: 


PRINT [list-items] [search-string] 
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This command will resequence a BASIC program. Because resequence is a complex operation requiring two 
passes over the source file, it is combined with a SAVE operation and may only be used with a syntactically 
correct program. 


Format: 


RESEQUENCE [start] [: increment} [:file parameters] 


Example: 


RESEQUENCE 199:58:MYPROG ,MYFILE,MYPACK 


Programming Notes: 


1. 


2. 


If omitted, the starting value and increment default to 100. 


The resequence operation will not be completed if the new highest line number would be greater 
than 99999 or if any line contains a syntax error. 


An error will occur if any line of text must be expanded beyond 80 characters in order to insert the 
new line numbers. 


The contents of the workspace are not modified. 
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5.2.11. RUN 


The RUN command directs the system to load and execute the program contained in the user’s workspace. 


Format: 


RUN 
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§.2.12. RUNOLD 





The RUNOLD command combines the functions of the OLD command and the RUN command. It eliminates the 
time-consuming step of writing the program into the workspace. Consequently, the source code is not available 
for editing. Statements are read from the library file, compiled, and written directly into main storage. Because 
this command is intended to be used to execute debugged programs, statement numbers are discarded to 
conserve main storage. 

Format: 


RUNOLD file-parameters 


Programming Notes: 
1. Errors may occur when BASIC is trying to locate the program if the file parameters are not correct. 


2. lf there are any syntax errors detected, the command will be terminated. The program will not be in 
the workspace, and an OLD command will have to be issued before the program can be corrected. 


3. lf execution errors occur, line number O will be displayed as the error location, because line numbers 
are not saved during RUNOLD processing. 
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5.2.13. SAVE 
The SAVE command directs the system to save, on a OS/3 library file, a copy of the source program currently 


contained in its workspace. The program name is entered in the file directory and the body of text is stored as a 


source element. This element may later be retrieved using the OS/3 librarian LIBS, the OS/3 EDT program or 
OS/3 BASIC. 


Format: 


SAVE file-parameters 
Programming Notes: 


1. Errors may occur if the disk volume or disk file cannot be located, or if a password is required but not 
specified in the command. 


2. ‘If a program with the same name already exists in the file, BASIC will ask: 


[$168 FILE/MODULE ALREADY EXISTS; OK TO WRITE:1T? (Y,N) 


A response of Y will delete the old copy and overwrite it with the new program. 


A response of N will terminate the command immediately and will leave the old copy of the program 
intact. 
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5.2.14. SYSTEM 


This command serves the dual purpose of breaking into system mode without destroying the contents of the 
workspace (compare with BYE) and of providing the ability to execute a system command without leaving BASIC. 
If an operand is provided, that command is executed immediately. If there is no operand, the terminal user is 
returned to system mode. The user may resume BASIC by issuing the RESUME command. 


Format: 


SYSTEM [system-command ] 


Examples: 


SYSTEM 
SYSTEM FSTATUS JOBS 
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6. BASIC Program Techniques 


6.1. INTRODUCTION 


Constructing a BASIC program requires translation of the problem into a set of statements that the BASIC 
system can use in solving the problem. To aid in selecting the proper statements needed to solve a specific 
problem, a summary of statement and command formats is provided in Appendix A. Once the required 
statements and commands are selected, refer to the detailed descriptions of those statements and commands in 
Sections 3 through 5 to review their characteristics and restrictions. 


in translating a problem into a series of statements, the user should be familiar with the hierarchy of arithmetic 
operations, the use of loops, tables, lists, built-in functions, and multiline functions in BASIC. These subjects are 
covered in detail in this section. 


6.2. HIERARCHY OF ARITHMETIC OPERATIONS 

BASIC can perform simple operations such as addition, subtraction, multiplication, division, and exponentiation. 
BASIC can also evaluate numerous built-in functions and user-defined functions. The order in which the simple 
operations, built-in functions, and user-defined functions are evaluated are similar to those used in standard 


mathematical calculation, with the exception that all BASIC operations must be written on a single line. 


The five simple operators that can be used in BASIC are: 





Operator Definition Example 
shes Exponentiation A**B 

= Multiplication A*B 

vi Division A/B 

+ Addition AtTB 


- Subtraction A-B 
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The hierarchy of arithmetic operations is summarized in the following rules: 


1. 
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The arithmetic expression enclosed in parentheses is evaluated first, and its value may then be used in 
further computations. 


Example: 


X* (A+B) 


In this example, the expression A+B is evaluated first and its value is then multiplied by X. 


Where parentheses are omitted, or where the entire arithmetic expression is enclosed within a single pair 
of parentheses, the order in which the operations are performed is as follows: 


Operation Hierarchy 


Evaluation of functions (built-in or user-defined) 1st (highest) 


Exponentiation (**) 2nd 

Multiplication and division (* and /) 3rd 

Addition and subtraction (+ and -) 4th 
Example 1: 


A*B/C** SQR(D)+E 


This arithmetic expression is evaluated in the following order: 
a. SOR(D) Call the result T1 (function) 

b. C**T1 Call the result T2 (exponentiation) 

Cc. A*B Call the result T3 (multiplication) 

d. T3/T2 Call the result T4 (division) 

e. T4+E Final operation (addition) 


Also, for operators of the same hierarchy (with the exception of exponentiation), the component 
operations of the expressions are performed from left to right. 


Example 2: 
A*B/C 
This arithmetic expression is evaluated in the following order: 
a. A*B Call the result T1 


b. T1/C Final operation 
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Example: 3 
At*Bt'C 
This arithmetic expression is evaluated in the following order: 
a. A**B Call the result T1 
b. T1**C Final operation 


3. Where nested pairs of parentheses are used, the arithmetic expression within the parentheses is evaluated 
before the outer operations are performed. 


Example: 
T1 
—— 
((B+( (A+B) *C) )+A**2) 
T2 T4 
T3 


This arithmetic expression is evaluated in the following order: 
a. (A+B) Call the result T1 
b.  (T1*C) Cail the result T2 
c. BH2 Call the result T3 
d. A**2 Call the result T4 


e. (T3+T4) Final operation 


6.3. USE OF LOOPS 


It is sometimes necessary to construct BASIC programs in such a way that certain portions are performed more 
than once, with perhaps only slight changes each time. This repeated execution of the same portion of a program 
is referred to as a loop. 


The use of loops can best be illustrated and explained by the following two examples. Both perform the task of 
printing out a table of the first 100 positive integers together with the square root of each. 


Example 1: 
18 PRINT 1, SQR(1) 
29 PRINT 2, SQR(2) 
38 PRINT 3, SQR(3) 
19996 PRINT 18969, SQR(168) 
1916 END 


Without a loop, this example requires 101 statements. 
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Example 2: 
19 LET X=1 
26 PRINT X, SQR(X) 
36 LET X=X+1 
46 1F X<=168 THEN 29 
58 END 


With a loop, this example obtains the same table values but with only 5 statements instead of 101. Note 
that statement number 10 is executed only once, whereas the sequence of statements 20, 30, and 49 are 
repeated 100 times. 


In general, all loops contain four. characteristics: initialization (e.g., statement 10), the body (e.g., statement 
20), modification (e.g., statement 30), and the exit test (e.g., statement 40). 


Because loops are so important and because loops of the type just illustrated arise so often, BASIC 
provides two statements (FOR and NEXT) to specify a loop. 


Example 3: 
16 FOR X=1 TO 169 
208 PRINT X, SQR(X) 
36 NEXT X 
46 END 





In this example, the FOR statement initializes the loop index X to 1, the final value to 100, and the step 
value to 1. Thus, the loop (statements 10 to 30) is performed 100 times and the resulting table is the same 
as that produced by examples 1 and 2. 


Note that the step value can be adjusted by writing the FOR statement in the following form: 


19 FOR X=1 TO 198 STEP 5 


In this case, the resulting table contains the integer numbers 1, 6, 11, . . . 96 with their corresponding 
square roots. Observe that another step of 5 would cause the loop index X to exceed 100. 


The STEP value may be positive or negative and may be a decimal number. If statement number 10 in 
example 3 was changed to the following statement: 


16 FOR X=188 TO 1 STEP - .1 


the resulting table would be printed in reverse order and contain the numbers 100, 99.9, 99.8, ..., 1.1, 1.0 
along with their corresponding square roots. 


More complicated FOR statements may be written that permit the user to specify the initial, final, and step 
values as arithmetic expressions. For example, if N and Z have been defined earlier in the program, the 
user could write the following FOR statement: 
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Example 4: 


199 FOR X=Z TO N STEP (N-Z)/16 


The user should refer to the programming notes of the FOR and NEXT statements in Section 3 for further 
details about the loop parameters. 


Loops within loops may be used and are referred to as nested /oops. The FOR and NEXT statements may be used 
for this purpose and are illustrated in Table 6-1. As can be seen in the table, loops may be nested several levels 
(maximum of 10), but are never permitted to overlap. 


Table 6—1. Nested Loops 


Allowed Allowed Not Allowed 





6.4. USE OF LISTS AND TABLES 


In addition to the ordinary variables used in BASIC, there are variables that can be used to designate the elements of 
a list or a table. These are used where a subscript or a double subscript ordinarily might be used, for example, the 
coefficients of a polynomial (ao,4),a2,. . .) or the elements of a matrix. The variables used in BASIC consist of a single 
letter, which is called the name of the list, followed by the subscripts in parentheses. Thus, the user might write A(O), 
A(1), A(2), etc, for the coefficients of the polynomial and B(1,1), B(1,2), etc, for the elements of the matrix. 


The user can enter the list A(O),A(1), . . . A(10) into a program very simply by the following statements: 
Example 1: 

16 FOR T=@ TO 19 

29 READ A(T) 

39 NEXT T 

49 DATA 2, 3, -5, 7, 2.2, 4, ~9, 123, 4, -4, 3 


Lists and tables with more than 10 subscripts require a DIM statement to indicate that more main storage 
is needed. For example, a list of 15 numbers may be entered as follows: 
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18 DIM A (25) 
26 READ N 
36 FOR T=1 TO N 
46 READ A(T) 
58 NEXT T 
68 DATA 15 
78 DATA 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47 
86 END 


In this example, statements 20 and 60 could have been eliminated and statement 30 replaced by 30 FOR 
T=1 TO 15. However, this program as typed allows for the lengthening of the list simply by changing 
statement 60, as long as the value read in for N does not exceed 25. 


A simpler way of performing the same function as lines 30 to 50 is to use a MAT statement: 


36 MAT READ A (N) 


Matrix A will be redimensioned to the current value of N; a value will then be assigned to each element of 
A from 1 to N. 


A table consisting of three rows and five columns could be entered into a program by writing the following 
statements: 


Example 3: 


16 FOR T=1 TO 3 

28 FOR J=1 TO 5 

38 READ B(T,J) 

48 NEXT J 

58 NEXT T 

68 DATA 2, 3, -5, -9, 2 
76 DATA 4, -7, 3, 4, -2 
86 DATA 3,-3,5,7,8 


Here again, the user may enter a table with no dimension statement, and the system will handle all the 
entries from B(0,0) to B(10,10). If a table with a subscript greater than 10 is entered without a DIM 
statement, an error message specifying a subscript error is generated. This is easily rectified by entering 
the following statement (assume a 20 by 30 table is required): 


K) DIM B(28,38) 
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Here, again, a single statement can replace lines 10 to 50: 


18 MAT READ B(3,5) 


The single letter denoting a list or a table name may also be used to denote a simple variable without 
confusion. However, the same letter may not be used to denote both a list and a table in the same program. 
The form of the subscript is flexible. The user might have the list item B(I+K) or the table items B(L,K) or 
Q(A(S, 7),B-C). 


6.5. USE OF BUILT-IN FUNCTIONS 


The built-in functions provided in BASIC consist of: 


mathematical functions (SIN, COS, TAN, COT, ATN, EXP, LOG, ABS, and SOR); 
specialized functions (INT, RND, SGN, TIM, DET, LEN, MOD, POS, VAL, and EBC); 
string functions (CHR$, CLK$, DAT$, SEG$, STR$, and USR$); and 


file functions (LOC, LOF, MAR, PER, TYP, and NUM). 


Examples of each function are provided. 


6.5.1. Mathematical Functions 


SIN(x), COS(x), TAN(x), COT(x), and ATN(x) designate the functions sine, cosine, tangent, cotangent, and 
arctangent, respectively, and the argument x is an angle measured in radians. 


Example: 
18 X=3.14159/2 
298 Y1I=SIN(X) 
38 Y¥2=C0S(X/2) 
40 Y3=TAN(X/3) 
58 Y4=COT(X/6) 
69 PRINT X,Y1,¥2,¥3,Y4, 
78 END 


In this example, X is 77/2 (90 degrees), Y1 is the sine of 90 degrees, Y2 is the cosine of 45 degrees, Y3 is 
the tangent of 30 degrees, and Y4 is the arctangent of 15 degrees. 


EXP(x) designates exponentiation e* 


18 E=EXP (X**2) 


In this example, E is e*2 
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LOG(x) designates the natural logarithm of x, In(x). 


16 A=LOG(Y**18) 


In this example, A is 10 In(Y). 

ABS{(x) designates the absolute value of x, |x. 
16 B=ABS(-X*Y) 

In this example, B is |-X*Y|. 

SOR(x) designates the square root of xV«. 


19 C=SQR(A**2+B**2) 


In this example, C isVA2+B2. 


6.5.2. Specialized Functions 


INT(x) designates the largest integer not exceeding x. 
By definition, the following relationships hold: 

- If x > 0, then INT (x) <x 

- If x = 0, then INT (x) = 0 


- If x <0, then INT (x) < x 


16 X=INT(2.985) 
28 Y=INT(-2.815) 
38 Z=INT(X-Y) 


In this example X is 2, Y is -3, and Z is 5 (i.e., Z=INT(2-(-3))). 

The INT function can be used to round to any specific number of decimal places. For example, INT(X*10+.5)/10 

will round X correct to one decimal place, INT(X*100+.5)/100 will round X correct to two decimal places, and 

INT(X*10**D+.5)/10**D will round X to D decimal places. 

RND(x) generates a pseudorandom number as follows: 

- If X > 0, then RND(x) is a function of X whose value is in the open interval [O, 1). 

- If X <0, the system supplies an arbitrary random number on the open interval [0, 1). 

- If X = 0, the system supplies a pseudorandom number, which is a function of the previous random 
number generated by RND. If X = 0, the first time RND is called in a program, the system will supply 


a fixed number in the open interval [O, 1). 


- If X is not specified (i.e., RND), then RND(O) is assumed. 
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To generate a sequence of pseudorandom numbers, the user would call any of these options followed by 
repeated calls to option c. 


5 X=9 

18 FOR L=1 TO 26 
26 PRINT RND(x), 
36 NEXT L 

46 END 


a RANDOMIZE may be used to cause RND to supply arbitrary random numbers. It is equivalent to call RND 
(-1). The execution of the previous program would cause the following 20 random numbers to be output: 


18 RANDOMIZE 

Col 1 * Col 16 Col 31 Col 46 Col 61 
-763242E-65 - 258198 - 753869 567854 - 989682 
. 747568 -446211E-81 -554667E-91 252568 -442911 
-816485E-61 52082 .99271 - 941932 572162 
.397955E-61 58698 891253 .882914 793956 


if the user wants 20 random 1-digit integers, statement 20 is changed as follows: 


28 PRINT INT(24*°RND(x)+5); 


This results in the following output: 


yas 
@ 27 5 5 7 6 @ 2 4 6 5 9 © 5 6 5 8B 8B 


The user can vary the type of random numbers desired. If the user wants 20 random numbers ranging from 
5 to 24 inclusive, statement 20 is changed to the following: 


20 PRINT INT(24°RND(x)-+5); 


In general, if random numbers are chosen within the range ASRND(x)XA+8, the random function is used 
as follows: 


INT (B*RND(x)+A) 


s SGN(x) designates the sign of x. 


SGN (x)= +1, if x >@ 
6, if x =§ 
-l, if x <@ 

19 X=SGN(8) 

20 X1=SGN(-1.82) 

3@ X2=SGN(X1) 

46 X3=SGN(-X1) 


The following example assigns O to X, -1 to X1, -1 to X2, and +1 to X3. 
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. DET designates the value of the determinant of the last matrix to be inverted, or a value of zero if it could © 


not be inverted. 


19 
28 
34 
49 
58 








DIM A(3,3), B(3,3) 
MAT READ A 


MAT B = 


INV (A) 


MAT PRINT B 
““THE VALUE OF ITS DETERMINANT 1S'';DET 


= LEN (XS) returns the length of the string argument. 


19 
28 
36 
49 


LET A$="‘ABC'' 
LET BS=A$&A$ 
PRINT LEN (A$), LEN (B$), A$, B$ 


END 


would print out 


3 


6 


ABC ABCABC 


a MOD (X,Y) computes the modulus remainder 


590 


608 
619 
626 
999 


MOD (X,Y) = X - ¥ (INT (X/Y)) 


FOR 
PRINT 
NEXT 
END 


I=1 TO 5 
1; ‘‘MODULO 2 EQUALS’'’ ;MOD(I, 2) 





This program would print 


wn & = 


MODULO 
MODULO 
MODULO 
MODULO 
MODULO 


RO BR PR PR PO 


EQUALS 1 
EQUALS 8 
EQUALS 1 
EQUALS Vi) 
EQUALS 1 


a POS (AS, BS, X) begins searching A$ at X for the string B$ and returns the position of B$ in A$. 


18 
26 
38 
40 
58 
69 


LET X$= ‘‘THIS STRING IS A TEST'’ 
PRINT ‘‘ENTER BEGIN, STRING:''; 
INPUT Q,Q$ 

PRINT POS(X$,Q$,0) 

GOTO 286 

END 
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If run, this would result in: 

ENTER BEGIN, STRING;? 1,18 

3 

ENTER BEGIN, STRING:? 5,1S 

13 

ENTER BEGIN, STRING;? 4,DUMMY 

0 


ENTER BEGIN, STRING;? STOP 


TIM returns the elapsed running time in seconds, accurate to milliseconds. 


16 LET A=TIM 


26 FOR I=1 to 189998 

39 NEXT | 

49 PRINT ‘‘ELAPSED TIME IS'’, TIM-A 
58 END 


This would print 


ELAPSED TIME IS 993999 


VAL(QS$) returns the value of the number whose decimal representation is in QS. 


16 LET F9$=''4334.57'' 
26 PRINT VAL(F9$), VAL(SEGS$(F9$,3,5)) 
99 END 


This program would print 


4334.67 34 


In this example, the SEGS$ function creates a substring of characters 3, 4, and 5 (which are 34.), and 
performs the VAL function on this substring. 


EBC (string) obtains the EBCDIC value for a single EBCDIC symbol. Certain symbols cannot be typed and 
must be entered as 2 or 3 character mnemonics. To interpret a lowercase letter, you must prefix the letter 
in question with LC (e.g., LCE interprets lowercase e). Table 2-1 lists these mnemonics, along with the 
decimal value which the EBC function will return. EBC is a compile-time, rather than a run-time, function. 
Examples of using the function follow: 


EBC(1)=241 EBC(CR)=13 
EBC(B)=194 EBC(NUL )=8 





UP-9168 Rev. 1 SPERRY UNIVAC OS/3 6-12 
BASIC 


6.5.3. String Functions 


a CHRS(x) returns a 1-character string consisting of the EBCDIC character with the code MOD(INT(x),256). 
This function may be used to embed special characters or contro! sequences in printed output: 


16 PRINT ‘‘THES SENTENCE 1S UNDERLINED’’; 
26 PRINT CHR$(13); 
36 PRINT °° 

99 END 


THIS SENTENCE IS UNDERLINED 


Line 20 uses the decimal value of a carriage return, 13, to move the teletype print head back to the start of 
the output line without skipping down one line (no line-feed is used). This could have also been done by: 


28 PRINT CHR$ (EBC(CR)); 
a CLKS gives the time of day in string format. 


An 8-character string in the form “hh:mm:ss” is returned. 


19 PRINT ‘‘THIS PROGRAM WAS RUN AT:’'CLK$ 
28 PRINT 


99 END 
If executed, this program would begin by printing 
THIS PROGRAM WAS RUN AT: 14:65:38 
Ld] DATS may be used to obtain the current date as an 8-character string in the form yy/mm/dd. 


19 PRINT ‘‘THIS PROGRAM WAS RUN AT’’;CLK$;‘‘ON'';DATS 
20 PRINT 


99 END 


This program would begin by printing 


THIS PROGRAM WAS RUN AT 14:96:18 ON 88/86/24 


. 
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SEGS(AS,X,Y) allows the user to obtain substrings of a larger string. All characters between positions X 
and Y inclusive of A$ will be returned as a new string. If X>Y, then a null string is returned. The 
appropriate beginning or end of A$ is returned in the case where X <=O or Y>LEN(AS). 

1. — If CLKS is 14:10:05, then SEG$(CLK$,1,5) would be 14:10. 


2. The function call SEG$(B1$,2,4095) would always return a string consisting of all but the first 
character of B1S$. 


3. The function call SEG$ (C$,1,LEN(C$)-1) would always return a string consisting of all but the last 
character of CS. 


STRS$ (x) may be used to convert a floating point number to its decimal representation. This function 
returns a String. 


16 LET N2=6.35 
28 PRINT STR$(N2), SEG$(STR$(N2),2,2) 


This would print 
6.35 6 


Notice that STR$(VAL(A$))=A$ and VAL(STRS(X)) = X. STRS and VAL are inverse functions. 


USR$ designates the logon-id of the user who is currently executing the program. This is a 6-character 
string derived from the user-id stated on the LOGON command. 


6.5.4. File Functions 


LOC (#n) returns the current location of the file pointer for the file assigned to channel n. This function is 
useful if a program must remember the location in the file to be referenced later. 


16 FILE #3: ‘‘PROG,DISKFILE,PACK37 
(processing) 


28 READ #3: A6$ 
21 LET R=LOC(#3)-1 


(process record in A6$) 


38 RESET #3: R 
31 WRITE #3: A6$ 


In this example, the current location pointer is in some unknown position when statement 20 is executed, 
but the record at that position must be read, changed, and written back. Statement 21 obtains the current 
position and decrements it because the READ statement automatically increments the location pointer. The 
record can then be processed. To overwrite a record, the file is reset back to the record by statement 30 
and written by statement 31. 


<~ 
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. LOF (#n) returns the current value of the end-of-file pointer for the file assigned to channel n. This value is 
equivalent to the number of records in the file. 





176 FILE #2:‘°, ‘ERRORS’ ,SYSRES 
186 FORI=1 TO LOF(#2) 

198 WRITE #2:A$(1) 

268 NEXTI 


In this example, the value of LOF is used to control a FOR loop. Each record in the file is written from the 
corresponding array element in A. This same function can be accomplished with the file IF statement: 


170 FILE #2: ‘‘, ERRORS’ ,SYSRES 
188 I=1 

196 IF END #2 THEN 238 

268 WRITE #2:A(1) 

218 I=1+1 

228 GOTO 199 

238 


a PER (#n,A$) allows the user to determine if a file operation will be permitted if executed against the 
specified file. The function specified by string expression A$ is tested against the file assigned to channel 
n. a +1 is returned if the function is permitted, O if not, and -1 if an invalid function statement is used. 


216 PRINT ‘‘ENTER NAME OF FILE TO PROCESS:''; 

220 INPUT NI$ 

230 FILE #3:N1$ 

240 IF PER(#3,‘‘INPUT'’)=1 GOTO 368 

258 PRINT ‘‘FILE CAN'T BE READ, ENTER CORRECT FILE WITH PASSWORD’ ' 
266 GOTO 218 

308 PRINT ‘‘FILE NAME ACCEPTED’’ 





. continue processing 


This would result in: 


ENTER NAME OF FILE TO PROCESS:? sq,myfile,mypack 

FILE CAN'T BE READ, ENTER CORRECT FILE WITH PASSWORD 
ENTER NAME OF FILE TO PROCESS:? sq,myfile(pass),mypack 
FILE NAME ACCEPTED 


In this example, the user must enter a file for the program to process. The program will later read the file 
using INPUT statements. To avoid program termination should BASIC not permit this, the PER function 
tests if INPUT is accepted for the file. The most likely reason for it not being accepted is the failure to enter 
the correct READ password. 
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a TYP (#n,A$) allows the user to test the file type of a file. The string expression A$ specifies one of the 
possible file types to test against the file at channel n; a +1 is returned if the file has that type, 0 if not, and 
-1 if an illegal file was specified by AS. 


396 IF TYP (#3,‘‘LIBRARY’’) = 1 GOTO 339 

316 PRINT ‘‘SPECIFY ONLY LIBRARY FILES WITH THIS PROGRAM’ ’ 
326 GOTO 218 

338 PRINT ‘‘FILE ACCEPTED’ ’ 


This example is a continuation of the last example and shows how a program that is designed to run using 
only library files can test user-supplied files. 


] NUM can be used with MAT INPUT of vectors to determine how many elements of the vector were entered. 


“716 DIM V(198) 

“728 PRINT ‘‘ENTER LIST OF NUMBERS’ ’ 
°738 MAT INPUT V 

“746 S=0 

“758 FOR | = 1 TO NUM 

“766 S=S+V(1) 

“770 NEXT | 

*788 PRINT ‘‘SUM OF NUMBERS 1S:'':S: ‘‘AVERAGE 1S:'';S/NUM 
"798 END 

“RUN 

ENTER LIST OF NUMBERS 

71,9,8,2,3,4,8,8 

745,26,16 

SUM OF NUMBERS IS: 116, AVERAGE 1S 11.6 


In this example, a vector is used to accept a variable number of input values from the terminal. The NUM 
function is then used to determine how many elements of the vector are to be processed. An ampersand 
(&) was used on the first line of input from the terminal because the entire list would not fit on one line. 


6.6. USE OF MULTILINE FUNCTIONS 


Multiline functions are defined using a combination of DEF and FNEND statements. The user should refer to the 
programming notes on the DEF and FNEND statements in Section 3 for further details concerning the 
construction of multiline functions. 


Example: 
118 DEF FNA(N)T,H 
129 REM THIS MULTILINE FUNCTION COMPUTES 
136 REM THE FACTORIAL OF N 
146 T=1 
158 IF N<=1 GOTO 198 
168 FOR H=2 TO N 
178 T=T*H 
189 NEXT H 
199 FNA=T 


208 FNEND 
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If this multiline function is called within the following sequence of statements: 


19 FOR J=@ T0 9 

26 PRINT J;‘‘!tA=''; FNA(J) 
36 NEXT J 

49 END 


the printed output appears as follows: 


Col 1 

{ 

0! A=Al 

1! A=Al 

2! A=A2 

31 A=A6 

4! A=A24 

5! A=A128 
6! A=A7 26 
7! A=A5 846 
8! A=A483206 
9! A=A3 62886 


6.7. USE OF SUBPROGRAMS 


Subprograms provide a mechanism by which independent, parameterized routines can be developed and called 
with minimal program overhead. 


The following example shows a simple subprogram that translates strings, which may contain lowercase 
characters, to all uppercase. The calling program need only issue a CALL statement selecting the subprogram 
and stating which string is to be converted. Upon return from the routine, the string will contain only uppercase 
characters. Although this main program converts a file from uppercase/lowercase text to all uppercase, other 
programs could use the subprogram for other purposes if it were saved in a common library. 


Example: 


1606 FILE #4: ‘‘TEXT,LIBFILE(RDPASS)'’ 
1169 FOR !=1 TO LOF (#4) 

120 LINPUT #4:L$ 

138 CALL ‘‘UPPER’’:L$ 

148 RESET #4:L00(#4)-1 

158 WRITE #4:L$ 

16@ NEXT | 

176 END 

580 SUB ‘‘UPPER’’:S$ 

516 DIM C(128) 

526 CHANGE S$ TO C 

538 FOR I=1 TO C(#) 

540 1F C(1)>EBC(Z)-64 GOTO 699 
550 IF C(1)<EBC(A)-64 GOTO 686 
568 C(1)=C(1)+64 

696 NEXT | 

616 CHANGE C TO S$ 

628 SUBEND 
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This example also makes use of the CHANGE statement to separate each character of the string and 
convert each to its EBCDIC value. Each character value can then be tested for lowercase and, if true, 
changed to uppercase by adding decimal 64, which is the decimal difference between the EBCDIC 
characters A and a. After the individual characters have been processed, they are combined into a string 
via the CHANGE function. 


6.8. USE OF FILES 
Several examples of programs using files are presented in this subsection. 


The following BASIC program uses several! files to operate on library elements. The purpose of this program is to 
read a COBOL program, locate any references to the COBOL ‘COPY’ verb, and insert the copied modules inline. 


Example 1: 


198 PRINT ‘‘ENTER COBOL PROGRAM NAME AND COPYLIB FILE NAME’’; 
208 INPUT P$,C$ 

300 FILE #1:P$ 

490 RENAME #1:'‘*'' 

509 LINPUT #1:R1$ 

600 IF POS (RI$,‘ ‘IDENTIFICATION DIVISION’'’,1) = 8 THEN 8666 
706 RESET #1 

860 FILE #2:'°'*"’ 


This portion of the program queries the terminal user for the COBOL program name and the name of the 
file where the copy elements can be found. The file is opened and immediately renamed to temporary file 
to prevent overwriting the original module on errors. The first record is then read and tested to see if it is a 
valid COBOL program. If not, the user is notified. Otherwise, the file is reset so it can be reread from the 


beginning. 
Example 2: 
1968 FOR | = 1 TO LOF (#1) 


1196 LINPUT #1:R1$ 

1268 LET C = POS (RI$, ‘‘COPY’’, 7) + 1 
1366 IF C-1>@ THEN 3698 

1466 WRITE #2: R1$ 

15868 NEXT | 

1608 RENAME #2: P$ 

1796 GOTO 9999 


The program file is now read, one line at a time, and tested for the COPY verb. If the record is other than a 
COPY, it is written to the output file. Otherwise, a separate section of code is used to process the copy. 
Finally, the output file is renamed to the original file name so that when it is closed it will be written in 
place of the original. 
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Example 3: 





3600 CALL ‘‘FINDNOSP''’: R1I$, C+4, C2 
3190 LET C+ = POS (R1I$8&'’ '','’ °’,C2) 
3200 IF SEG$ (R1$, C3-1, C3-1) <> ''.’' THEN 34686 
3398 LET C3=C3-1 

3498 LET N$ = SEG$ (R1$, C2, C3-1) 
3500 FILE #3: N$& °’,'' &C$ 

3600 RENAME #3: ‘'*'' 

3708 FOR J =1 TO LOF (#3) 

3808 LINPUT #3: R2$ 

3900 WRITE #2: R2$ 

4680 NEXT J 

4186 GOTO 1568 


Once a COPY statement has been found, the copied module name must be isolated. This is concatenated 
onto the file name and the library element is opened. It too is renamed to a temporary file so it is not 
overwritten. Each statement of the element is then added to the output file. 


Example 4: 


8008 PRINT ‘‘THIS IS NOT A COBOL PROGRAM, TRY AGAIN’' 
81099 GOTO 168 
9999 END 





These statements complete the main program. 


The subprogram FINDNOSP must also be written. Its purpose is to find the first nonblank character ina string. 
It is called with three parameters, a string to search, the column beginning the search, and a variable into 
which the result is placed. The subprogram scans the string and returns the column of the first nonblank 
character in the string after the column specified by parameter 2; the result is returned in parameter 3. If 
nonblanks are not found, zero is returned. 


Example 5: 


10008 SUB ‘‘FINDNOSP’’: S$, B, E€ 

19108 FOR E = B TO LEN (S$) 

19208 IF SEG$ (S$, E, E) <> °' '' GOTO 19999 
19368 NEXT E 

194668 —E = 0 

19999 SUBEND 
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6.9. HINTS FOR MORE EFFICIENT CODE 


The following suggestions for writing BASIC programs improve the execution time and reduce main storage 
requirements: 


Use intrinsic system functions instead of BASIC code whenever possible. 
Use FOR loops rather than maintaining counters in BASIC. 


Use string functions, such as POS and SEGS, rather than maintaining an array of characters stored one 
character per word. 


Use MAT statements to process matrixes, rather than indexing with FOR loops. 


Rather than using several LET statements to compute a result, combine them into a single LET statement. 
This avoids saving temporary values and is especially helpful for string manipulation. 


When using DATA statements, combine several values onto one statement rather than using one value per 
statement. The result is a faster RUN compilation. 


Use the RCSZ parameter on file parameter strings rather than using the MARGIN statement. This results in 
a much faster execution time. 
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7. Errors and Debugging 


7.1. GENERAL 

There are two basic categories of error: 

1. those that prevent the running of the program; and 

2. those that permit the Program run, but cause wrong answers or no answers to be printed. (These latter 
errors are called logic errors). 

7.2. ERRORS PREVENTING RUNNING OF PROGRAM 

It may occasionally happen that the first run of a new program is free of errors and gives the correct answers. 

But it is much more common that errors are present and have to be corrected. Errors that prevent the running of 

the program are detected by the syntax checker, the editing command processor, the system monitor processor, 

the run-time error routines, and the post-compilation routines. (The errors reported by all of the system 

components mentioned, except the syntax checker, are listed in Appendix C. This appendix also suggests, for 

each error, the procedure to correct the error condition.) 

The syntax checker detects improper syntax in each statement and reports the error by printing a question mark 

(?) on the terminal followed by a copy of the incorrect statement, up to but not including the first character in 

error. 


Example: 


16 FOR N=1, 7 


Because the comma is not permitted in a FOR Statement, the system responds with the following message: 


? 18 FOR N=1 


and waits for the user to complete the statement. 
The user types in the following response: 


TO 7 


Now, the following corrected, complete statement is successfully processed by the system: 


19 FOR N=1 TO 7 
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7.3. LOGIC ERRORS 


Logic errors are those that permit the program to run but cause wrong answers or no answers to be printed. In 
either case, after the errors are discovered, they can be corrected by changing, inserting, or deleting statements 
from the program. A statement is changed by typing it correctly with the same line number. A statement is 
inserted by typing it with the new line number. A statement is deleted by either typing the line number and 
pressing the TRANSMIT key or using the DELETE command. 


Corrections to a BASIC program can be made at any time either before or after a run. In addition, line numbers 
may be typed in out of sequence because BASIC arranges them in ascending order once they are read. 


The following program reads in a series of numbers and finds the largest and smallest numbers in the series. 
The program also computes the average of the series. 


Example: 
19 INPUT N,A 
28 L=S=A 
38 FOR T=2 TO N 
48 INPUT X 
58 A=A+X 
68 IF X >=L THEN 98 
76 L=X 
86 GOTO 118 
96 , 1F X >=S THEN 119 
1998 S=X 
119 NEXT T 
129 A=A/N 
139 PRINT ‘‘SMALL=''; S, ‘‘LARGE=''; L, ‘'AVERAGE=''; A 
146 END 


The user types in the following data values when this program is executed: 


il 


nn BSP WwW fw 


The resulting output appears as: 


SMALL=Al1 LARGE=Al AVERAGE=A3 
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The value for LARGE is obviously incorrect. After examining the program, it becomes evident that the IF 
Statement on line number 60 should be changed as follows: 


66 IF X<=l THEN 996 


After this correction is made and the program is reexecuted with the same input data, the resulting output 
appears as: 


SMALL=Al1 LARGE=A5 AVERAGE=A3 
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8. BASIC in a Batch Environment 


8.1. INTRODUCTION 

Although primarily used in an interactive environment, BASIC can run effectively as a batch program. The 
requirements are simple. The user would merely enter on cards exactly what he would key in at the workstation 
during an interactive session, including everything from LOGON to LOGOFF. The user must store this routine as 
a file either on the spool file, using the spooler IN command, or on a library file via the librarian, using EDT or the 
interactive service COPY command. Once stored, the user can run the routine by issuing the ENTER command. 
8.2. PROGRAMMING CONSIDERATIONS 

@ The batch mode differs from the interactive mode in the following ways: 


2 BASIC messages with a reply 


BASIC commands or source statements 
Ld] Syntax errors in source statements 


a RU command 


8.2.1. BASIC Messages with a Reply 

BASIC assumes a Y response for the following messages with a reply: 
BAO64 EXECUTION PAUSED AT LINE xxxx CONTINUE (Y/N)? > 
1S100 FILE/MODULE ALREADY EXISTS; OK TO WRITE IT? (Y,N) > 


BA118 SOURCE MODULE NOT SAVED - TERMINATE (Y/N)? > 


8.2.2. BASIC Commands or Source Statements 


BASIC prints all input commands and source statements. 
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BASIC : : 
a ne 








8.2.3. Syntax Errors in Source Statements @ 


When an error is found in a source statement, a syntax message error number is printed on the line following 
the prompt message. 


Example: 
Input: 26 tF A> 18 THEN GO TO 168 
Output: ?28 1F A > 18 THEN 
Output: ERROR MSG # = BA132 


8.2.4. RU Command 


If BASIC finds a syntax error in a source statement, the RU command is ignored. This error condition will be 
reset by issuing a NEW, an OLD, or RUNOLD command. 





Example: 
Input: 18 A=1 
Output: . 
Input: 28 A=A+1 
Output: . 
Input: 38 IF A > 18 THEN GO TO 68 
Output: 27360 IF A> 16 THEN 
Output: ERROR MSG # = BA132 
Input: 49 PRINT A 
Output: : 
Input: 58 GO TO 28 
Output: * 
Input: 68 END 
Output: : 
Input: RU 
Output: BA626 UNCORRECTED ERROR IN SOURCE 


Output: , 








UP-9168 Rev. 1 SPERRY UNIVAC OS/3 8-3 
BASIC 





8.3. BASIC BACKGROUND OPERATION 


The following is an example of a BASIC background operation: 





LOGON WALTER 


// DATA FILEID=xxx 


The card deck of the BASIC batch session is read into the spooler and entered by using the console as follows: 


Input: IN (spooler command) 
Output: IR®@2 SPOOL FILE BASIC CREATED 
Input: ENTER Q=RDR,HOLD=N,FILE=xxx 


stating of BASIC background 


Figure 8-1 illustrates how the system handles BASIC in a batch environment: 
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1$22 OS/3 INTERACTIVE SERVICES 
LOGON YOSUKE 
1$19 LOGON ACCEPTED AT 17:14:29 ON 88/62/22, REV xx.S3.R 
1$27 TODAYS BULLETIN IS: 
-- TO TYPE IN COMMANDS, DEPRESS ‘FUNCTION’ AND -- 
-- ‘SYSTEM-MODE’ KEYS SIMULTANEOUSLY, THEN TYPE -- 
-- THE COMMAND AND DEPRESS TRANSMIT. 














BASIC 
BAO81 0S/3 BASIC READY (VER x.x) BEGIN 





1@ A=1 


* 


26 B=A+1 





A=1 
28 B=A+1 

36 PRINT A;B 
END 





1S73 LOGOFF ACCEPTED AT 17:15:44 ON 86/82/22 


Figure 8—1. BASIC Batch Environment Printout 
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Appendix A. Summary of BASIC 
Statement and 
Command Formats 


Table A-1 contains a listing of all of the BASIC statements and commands with examples of each. 


Table A—1. BASIC Statement and Command Formats (Part 1 of 5) 


Command Terminates BASIC and returns to 
SYSTEM. 


string-constant[:param-list] Subprogram Statement Initiates a call to a subprogram. CALL ‘‘SUBR'':3+4,A,B() 
CALL ‘‘FIND'':#3,SIN, (A) 
CALL er ene Nee 


b “A8Y B9L6-dN 


Bee ing-expression Subprogram Statement Initiates compilation and execution of CHAIN ‘‘PROGRAM2,CHAINLIB,PACK34'° 
channel-setter } another program segment. CHAIN A$ WITH #3 

CHAIN #4 WITH #1,#4,#J8 
(WITH channel-setter, 


. string TO array } General Statement Converts a string to a vector or vice CHANGE A$ TO V 
array TO string-variable versa. CHANGE M TO B3$ 
CHANGE G TO K1$ BIT 12 
[BIT expression] 
ed era baad fue Input/Output Statement Supplies values for subsequent READ DATA 1,3,6,163,-.34,17.3&34 
numeric-constant statements. DATA ‘‘STRING ONE'', STRING TWO, OTHER STR 
DATA FOURTH STRING, 33, ‘‘FIFTH STRING'' 
al FNtetter[($][(param-list)] Declaration Defines the entry point into a user FND (X,Y)=SQR(X"°*2+¥°*2) 


function. FNSS(X,Y$)=SEGS(Y$,X,X)&'''' 
[. tocai-list} FNQ 
FNGS.1,J,K 
{ expression] FNE (A,B,C) ,W,Z 


{line number-ltist][‘‘search-string’'] Command Deletes lines from the BASIC program DELETE 10 


in the workspace. DELETE 190-132 
DELETE ‘‘INSTRUCTIONS’’ 
DELETE 1-108 °‘REM’ 


olsva 
€/SO OVAINN AddadS 


letter([S](integer[,integer]}),... Deciaration Defines arrays or vectors and specifies 
subscript bounds. 


82 FILE #3:'°°"' 

83 FILE #1:''SQ,ERRORS,SPOOL3'’ 

84 FILE #7: °° COBOLPGM, LIBFILE(/WRPASS)'' 
85 FILE #J:A$ 


Initiates a loop and specifies values for 93 FOR I=3 TO 10 
loop index. 94 FOR J2=1 TO POS(AS$,B$,1) 
TO numeric-expression 95 FOR’ K=J2 TO L3 STEP 4 


[STEP numeric-expression} 
Control Statement Transfers control to a subroutine and 182 GOSUB 943 
saves return address. 
Control Statement Transfers control to another statement 111 GOTO 130 
in the program. 


cv 








Table A—1. BASIC Statement and Command Formats (Part 2 of 5) 


OS A 


Format 1: Control Statement Compares two expressions according 126 IF A$="‘YES'* THEN 348 
to the “test” specified and, if true, 122 FF SIN(X)=@.5 GOTO 43 
performs the GOTO or GOSUB. A file 123 1F END #3 GOSUB 238 
condition may also be tested. 






























expression test expression 
GOTO line-number 
GOSUB 
THEN 


Format 2: 
END channel-setter 
MORE 
GOTO line-number 
{ecste| 
THEN 





























INPUT ABS 
140 INPUT #1: D(3,4),J) 


[channe!-setter:}variable-name.... Solicits input from the terminal or 
reads a file and assigns values to the 


variables listed. 


input/Output Statement 
























Format 1: 
fhumeric-vartabie 

{=numeric-variable...] 

=numeric-expression 


LET AS=SEG$(A$.3,4) 
145 LET B(3,4)=SIN(Y) 
147 LET FND=B(3,4)°A(4)+1 


Assignment Assigns values to numeric or string 


variables or to a function. 









Format 2: 
string-variable 

{=string-variable...] 

=string-expression 






Format 3: 
FNietter[$]=expression 


LIBRARY string-constant, Subprogram Statement Specifies names of subprogram libraries 155 LIBRARY ‘‘SUBLIBRARY,PACK11'' 
to be searched. 157 LIBRARY ‘‘CATALOGEDSUBLIBRARY(ALLOWD)'’ 


List [line-number-list]['’search-string’ Command Displays lines of a BASIC program to LIST 3-4, 18, 168-269 
the terminal. LIST ‘‘PRINT’’ 
LIST 1-160 ‘‘REM’’ 


[channel-setter: Jnumeric-expression Input/Output Statement Changes the current margin setting for 168 MARGIN 128 
the terminal or a file. 164 MARGIN #3: 64 

letter=lettertletter Matrix Operations Adds two matrixes and places the re- 174 MAT A=B+C 
sult in a third matrix. 175 MAT V=W+Z 


letter=CON[(trimmer) ] Matrix Operations Sets all elements of the matrix to the 178 MAT A=CON 
value 1. The matrix may optionally be 179 MAT V=CON(!) 
redimensioned. 


MAT Matrix Operations Sets the matrix to an identity matrix. 
The matrix may optionally be redimen- 
sioned. 

MAT letter=INV( letter) Matrix Operations Performs the matrix inversion function 
on square matrixes. 

MAT letter=letter‘letter Matrix Operations Multiplies two matrixes and places the 198 MAT U=V"W 
result in a third. 199 MAT A=V°B 












































185 MAT H=IDN (3,3) 
188 MAT J=IDN 





190 MAT Q=INV(R) 








L ‘A8Y B9L6-d/N 
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Table A—1. BASIC Statement and Command Formats (Part 3 of 5) 


letter$=NULS[(trimmer) } Matrix Operations Sets all elements of a string matrix to 201 MAT O$=NUL$ 
null strings. The matrix may optionally 205 MAT FS=NULS$(1,J) 
be redimensioned. 206 MAT G$=NUL$(3) 


letter=(numeric-expression)*ietter Matrix Operations Multiplies ail elements of a matrix by a 212 MAT D=(J+4)°E 
scalar value. 213 MAT V=(SIN(U))°W 
letter=letter-letter Matrix Operations Subtracts two matrixes and places the 221 MAT D=F-E 
result in a third matrix. 
trix. 


Matrix Operations Sets alt elements of the matrix to the 244 MAT S=ZER 
value O. The matrix may optionally be 247 MAT E=ZER(3,4) 
redimensioned. 
MAT INPUT [channel-setter: Matrix Operations Solicits input from the terminal or a INPUT #3:8$ 
letter(S$J((t immer)]}. file and assigns values to each ele- 
ment of the matrix. 


L ‘A8Y 891L6-dN 


on 

m 

MAT LINPUT [channel-setter: } Matrix Operations Solicits input from the terminal or a LINPUT #3: A$ mo) 
letter$[(trimmer)]},... file and assigns complete lines of data LINPUT D$ 2 

to each element of the string matrix. Be 

>Z 

MAT PRINT [channel-setter:] Matrix Operations Displays a matrix to the terminal or a PRINT A, B; C€; Qe 
letter[$][separator},... file. Spacing is determined by the PRINT #8: BS, Oy 

separator. oO 

je} 

wn 

~N 

w 


MAT READ (channel-setter:] Matrix Operations Reads values in.for each element of READ A 
Fetter[S$]((trimmer)],... the matrix from DATA statements or READ B$(3) 
from a file. READ #3+3:D(3,4) 
MAT WRITE channel-setter:letter[$].... Matrix Operations Writes each element of the matrix to a WRITE #3: A,8 
record in the file. WRITE #1:K$,Y 


element, library[{ password) ] Command Reads in an existing program on disk MERGE SUBR, SUBLIB, SUBPAK 
[. volume] without deleting the original contacts 
of the workspace. 


fumeric-variable Control Statement Terminates a loop initiated by a FOR 292 NEXT ! 
Statement. 293 NEXT JS 
Command Deletes the contents of the BASIC 
workspace so that a new program 
may be written. 


element, library{ (password) ][,volume] Command Deletes the contents of the BASIC OLD PRINTSIN, PROGRAMLIB,DISKPK 
workspace when located and reads in OLD COMPUTE, CATALOGUEDFILE 
an old program from disk. 


vv 


Mumeric-expression Control Statement The value of the numeric expression 328 ON J*(4+1) GOTO 126,3868,128,438 
GOTO line-number... selects which line number in the list 111 ON K GOSUB 10,26,30,58,19,46 
GOSUB will be used with the GOTO or GOSUB 

THEN Statement. 








Table A—1. BASIC Statement and Command Formats (Part 4 of 5) 


PRINT [line-number-list][‘‘search-string'’’ ] 











Controt Statement 





Suspends execution of the program 
and queries the terminal user to deter- 
mine whether to continue or not. 









Command 









Displays lines of a BASIC program to 
the terminal. 


PRINT 3-4,18, 160-268 
PRINT ‘‘LINPUT'' 
PRINT °‘END’’ 9868-99999 















PRINT 













[channel-setter: ] 
expression[separator],... 


Input/Output Statement 345 PRINT ‘'THE ANSWER 
354 PRINT 1,J.K 


356 PRINT TAB(I);1; 





Displays the value of each expression 
listed according to the format specified 
by the separators. Display is to a file or 
a terminal. 


RANDOMIZE General Statement Obtains a random seed for the random 362 RANDOMIZE 
number generator. 


[channel-setter:]variable,... Input/Output Statement Assigns values to each of the variables 371 READ A,B,C 
listed from DATA statements or by 373 READ #4:A$(45) 
reading records from a file. 377 READ #1: A3, B7$, C(2,3) 


IS" A3 




































any characters for a comment General Statement Used for an inline comment. 





REM THIS PROGRAM COMPUTES THE WVB VALUES 
392 REM FOR AN ARRAY 

393 REM 
REMARK 

















RESEQUENCE start{:incr][:file-params} Command Resequences the program as it is RESEQ 186:50:RESPROG, PROGLIB, PACK57 


saved to a library file using the starting 
line number and increment. 

















RESET RESET 


384 RESET #3 
388 RESET #1:¥3 


RETURN Control Statement Returns from a subroutine which was 395 RETURN 

called via GOSUB. 

Command Initiates compilation of a program in RUN 

the workspace. 
RUNOLD element, filename[(password)][,volume} Command Initiates compilation of an old program RUNOLD COMPUTE, CATALOGUEDFILE 

stored on disk. 
element ,filename[(password)][,volume] Command Saves the BASIC program contained in SAVE COMPUTE, CATALOGUEDFILE( PSWORD) 

the workspace on disk. 
SCRATCH channel-setter Input/Output Statement Deletes the contents of the BASIC file. 403 SCRATCH #3 
464 SCRATCH #1-2 


sToP 412 STOP 


421 SUB ‘‘FINDSPAC’' 


[channel-setter:[numeric-expression] ] Input/Output Statement 






Repositions the file or the DATA state- 
ment pointer. 










Control Statement Terminates execution in the program. 
May be placed anywhere within the 
program as opposed to END, which 


must be last. 









string-constant: params 





Subprogram Statement Defines the entry into a subprogram 


and specifies any passed parameters. 





JISVE 
€/SO OVAINN Adu¥3adS 
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ae ae ie 


oe area — 

SYSTEM [system command] Command Returns control to system, or executes a SYSTEM 
single system command without leaving SYSTEM FSTATUS PROGRAMLIB, PACK33 
BASIC. 

SYSTEM Control Statement Issues a system command from a run- 476 SYSTEM’ RUN’ '&P1$ 
ning BASIC program 


integer Genera! Statement Changes the CPU time limit placed on TIME 126 
an executing program. 
| using-string,expression[ ,expression],... | Input/Output Statement Defines format string and edited ex- 127 PRINT USEING A$,B,C 


pressions. 145 MAT PRINT USING ‘'#,##ttItt’’ .B 
Input/Output Statement 





* Indicates the last statement in the 
subprogram and returns control to the 
CALL statement when executed. 


Subprogram Statement 























Returns control to the CALL statement 
from anywhere within the subpro- 
gram. 


Subprogram Statement 


























167 PRINT #7:USING C1$,FS;G 






Writes records to a file, one per ex- 523 WRITE #3:A,SIN(X),B$ 


pression listed. 





channel-setter:expression,... 
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Appendix B. Sample BASIC Session 


An example of a complete session is provided in Figure B-1 to aid the new user when learning BASIC. The 
designation IN: denotes text, which is supplied by the user, and OUT: designates responses from the system. 


on DO Ff WwW HR 


OUT: 
OUT: 


IN: 


OUT: 
OUT: 


OUT: 


IN: 


OUT: 


IN: 


OUT: 


OUT: 


IN: 


OUT: 


OUT: 


OUT: 


OUT: 


OUT: 


IN: 


OUT: 
OUT: 


IN: 


OUT: 
OUT: 


IN: 





LOGON USR1 

1$22 0S/3 INTERACTIVE SERVICE 

1S$19 LOGON ACCEPTED AT 13:37:22 ON 80/65/38, REV 7.08.21 
BASIC 

BA@81 OS/3 BASIC READY (VER 7.6) BEGIN 


* 


19 PRINT ‘‘PROGRAM TO COMPUTE AREA OF A CIRCLE GIVEN RADIUS’' 


* 


26 PRINT ‘‘ENTER CIRCLE RADIUS:''; 


* 


30 INPUT R 

40 A=3.14159 R**2 
A=3.14159 

49 A=3.14159 * R**2 


* 


5@ PRINT ‘‘AREA OF A CIRCLE IS’’:A,‘‘CONTINUE?’’; 


* 


68 INPUT C$ 


* 


70:1F C$=''YES'’ THEN 2808 


* 


88 END 

RUN 
BAO24 UNDEFINED LINE 962990 
LIST 76 

76 'F C$='‘YES'’ THEN 202 


* 


70 IF C$='‘YES'’ THEN 29 


Figure B—1. Sample BASIC Session (Part 1 of 3) 
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17-24 


25 


26-27 


28-33 


34-35 


36 


37-38 


39-40 


41-43 
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BASIC . Update B 


RUN 

PROGRAM TO COMPUTE CIRCLE GIVEN RADIUS 

ENTER CIRCLE RADIUS:> 

1 
AREA OF A CIRCLE IS 3.14159 CONTINUE?> 
YES 

ENTER CIRCLE RADIUS:> 

2 
AREA OF A CIRCLE IS 12.5664 CONTINUE ?> 

NO 

BYE 
BA118 SOURCE MODULE NOT SAVED - TERMINATE (Y/N)?> 
Y 
BA113 BASIC TASK NORMAL TERMINATION 

LOGOFF 

1873 LOGOFF ACCEPTED AT 68:15:88 ON 81/18/23 





Description 

These lines constitute the log-on procedure. A user has logged on with a user-id of USR1. 
The BASIC compiler is invoked. 

Program lines 10, 20, and 30 are entered and verified by the syntax checker. 


Line 40 is entered, but is incorrect, so it is rejected by the syntax checker. The statement up to 
and including the constant 3.14159 is correct, but there is an error after the constant. 


The user corrects the error by inserting a multiplication operator between the constant and the 
variable R. The line is accepted and verified. 


The rest of the program is entered. 
A RUN command is entered to execute the program. 


An error is detected by the compiler at line 70. Execution is inhibited and the user's terminal is 
returned to compilation mode. 


Line 70 is displayed and the reference to line 200 is corrected to use line 20. Execution is 
again attempted. 


The program begins execution by displaying a heading line and a request for input. 
Data is supplied for the INPUT statement at line 30. 


The answer is computed and displayed, along with the question, as to whether to continue or 
not. The user requests continuation. 


The program again requests input and is supplied a value of 2. 


A second answer is computed and displayed. This time the user selects not to continue the 
program, and so it terminates. 


Figure B—1. Sample BASIC Session (Part 2 of 3) 
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Lines 





44 


45-46 


47-48 


SPERRY UNIVAC OS/3 B-3 
BASIC 


Description 


To terminate the BASIC compiler, the BYE command is used. 

The user entered the BYE command without saving this program in the library file. BASIC 
responds with a BA118 message. The user does not want to save the program and replies 
with Y. 


A LOGOFF command is issued to end the session. 


Figure B—1. Sample BASIC Session (Part 3 of 3) 
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Appendix C. BASIC Error Messages 


BASIC error messages for interactive and batch environments are short and self-explanatory. The error 
messages are listed here in numerical order. The listing includes possible causes of an error and suggested 
procedures to follow in response to a message. When used in conjunction with the HELP command messages, 
these error message explanations can help you locate and correct programming errors. For details on using the 
HELP command, see 5.2.3. 


NOTE: 
All error messages for OS/3 BASIC are listed in this appendix. These messages are not included in the system 


messages manual. 


Error Message/HELP Command Message 





BA000 XXX YY BASIC TASK ABNORMAL TERMINATION BA005 MISSING FILE PARAMETER 
BASIC HAS TERMINATED ABNORMALLY, WHERE XXX IS THE FILE PARAMETER FORMAT IS: 
BASIC’S MOST RECENT ERROR AND YY IS THE DATA I) MIRAM:“ELEMENT’, FILENAME(PASSWORD), VOL” 
MANAGEMENT ERROR CODE (IF ANY). IF THE PROBLEM 2) LIB :“ELEMENT,FILENAME(PASSWORD), VOL” 
PERSISTS, SAVE ALL RELEVANT DATA AND CONTACT SEE BASIC PROGRAMMER’S REFERENCE FOR DETAILS. 
YOUR SPERRY UNIVAC REPRESENTATIVE. 
BA006 ENTER FILE NAME 
BA001 OS/3 BASIC READY (VER XX.XX) BEGIN THE USER HAS ENTERED A SAVE, OLD, OR RUNOLD 
OS/3 BASIC INITIAL MESSAGE COMMAND WITHOUT SPECIFYING A FILE NAME. 
SUPPLY THE NAME IN RESPONSE TO THIS MESSAGE. 
BA002 BASIC EDITING COMMAND UNRECOGNIZABLE 
EITHER AN INVALID COMMAND HAS BEEN ENTERED OR BA007 ILLEGAL VAL ARGUMENT 
A BASIC STATEMENT HAS BEEN ENTERED WITHOUT A THE STRING PASSED TO THE VAL FUNCTION DID NOT 
LINE NUMBER. VALID COMMANDS ARE: CONTAIN A VALID NUMBER. THE CONTENTS OF THE 
OLD NEW SAVE RUN STRING MUST BE EITHER AN INTEGER OR A DECIMAL 
PRINT HELP BYE DELETE NUMBER IN SCIENTIFIC NOTATION. NO EXTRA 
LIST SYSTEM PRINT RUNOLD CHARACTERS MAY BE SUFFIXED TO THE STRING. 
MERGE RESEQUENCE 
BA008 LOG OF A NON-POSITIVE NUMBER UNDEFINED 
BA003 INVALID LINE RANGE THE LOG FUNCTION HAS ENCOUNTERED A NON- 
VALID LINE RANGES CONSIST OF SINGLE LINE NUMBERS POSITIVE ARGUMENT. THE LOGARITHM OF THIS 
(A, B) OR RANGES OF LINES (A—B). A LINE NUMBER NUMBER 1S UNDEFINED; EXECUTION IS CANCELLED. 
CONSISTS OF AN INTEGER IN THE RANGE 1—99,999. 
BA009 SQUARE ROOT OF A NEGATIVE NUMBER UNDEFINED 
BA004 INVALID SEARCH STRING THE SQR FUNCTION ENCOUNTERED A NEGATIVE ARGUMENT. 


A SEARCH-STRING CONSISTS OF ANY CHARACTER STRING 
ENCLOSED IN QUOTATION MARKS. IF A QUOTE APPEARS 
IN THE STRING, IT MUST APPEAR AS “”. 


THE SQUARE ROOT OF THIS NUMBER IS UNDEFINED; 
EXECUTION IS CANCELLED. 
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Error Message/HELP Command Message 


BA010 EXPONENT UNDERFLOW, EXECUTION CONTINUES BA020 START AND INCREMENT WILL EXCEED 99999 
THE RESULT (OR INTERMEDIATE RESULT) OF A THE STARTING NUMBER AND INCREMENT USED IN A 
COMPUTATION IS LESS THAN THE SMALLEST NUMBER RESEQUENCE COMMAND CANNOT BE USED AS THEY ARE 
THE HARDWARE IS CAPABLE OF HANDLING. THE BECAUSE THEY WOULD CAUSE ONE OF THE NEW LINE 
NUMBER IS APPROXIMATELY 10 ** —78. ZERO IS NUMBERS TO EXCEED THE MAXIMUM LINE NUMBER IN 
SUPPLIED AND EXECUTION CONTINUES. OS/3 BASIC. USE A DIFFERENT START OR INCREMENT 
AND REISSUE THE COMMAND. 
BAO11 EXPONENTIATION ERROR 
INVALID OPERANDS WERE USED WITH THE A**B OR BA021 ERROR IN SOURCE — RESEQUENCE TERMINATED 
AtB FUNCTION. THIS ERROR CAN OCCUR IF “A” IS ONE OR MORE OF THE SOURCE STATEMENTS READ IN BY 
NEGATIVE AND “B” IS NOT AN INTEGER BETWEEN AN OLD COMMAND WITH ERRORS HAVE NOT BEEN CORRECTED. 
1 AND 15 OR —1 AND —15. ONLY VALID PROGRAMS IN THE WORKSPACE MAY BE RE- 
SEQUENCED. THIS ERROR INDICATES THAT AT LEAST ONE 
BA012 MATRIX DIMENSIONS ARE INCORRECT FOR FUNCTION © LINE IS SYNTACTICALLY INCORRECT. 
THE ROW OR COLUMN DIMENSION OF THE MATRICIES IN 
THE MATRIX STATEMENT IS INCORRECT. CHECK DIM BA022 GOTO OR GOSUB TO UNDEFINED LINE NUMBER 
STATEMENT FOR THE MATRICIES IN QUESTION. A GOTO, GOSUB, OR THEN STATEMENT HAS REFERENCED A 
LINE NUMBER WHICH DOES NOT APPEAR IN THE PROGRAM. 
BA013 SAME MATRIX APPEARS ON BOTH SIDES OF EQUAL SIGN 
THE SAME MATRIX MAY NOT BE REFERENCED ON BOTH BA023 REFERENCED SUBROUTINES NOT FOUND IN LIBRARIES 
SIDES OF AN EQUAL SIGN IN A MAT STATEMENT, A NEW ALL USER SPECIFIED LIBRARIES HAVE BEEN SEARCHED, 
MATRIX MUST BE GENERATED. BUT THE SUBPROGRAM LISTED IN THE ERROR MESSAGE 
COULD NOT BE FOUND. 
BAO14 INVALID TRIMMER IN MATRIX STATEMENT 
EITHER THE TRIMER DID NOT RESULT IN A POSITIVE BA024 UNDEFINED LINE XXXXX 
NUMBER, OR THE RESULTANT ARRAY REQUIRED MORE THE LINE NUMBER REFERENCED IN A GOTO, GOSUB, 
STORAGE THAN THE ORIGINAL ARRAY. ON, OR IF-THEN STATEMENT IS NOT PRESENT IN THE 
PROGRAM OR FUNCTION. INSERT THE REQUIRED LINE 
BAO15 ARRAY SUBSCRIPT OUT OF RANGE OR REMOVE THE REFERENCE 10 IT. 
AN ARRAY SUBSCRIPT, WHICH IS OUT OF THE RANGE 
SPECIFIED BY THE DIMENSION STATEMENT, HAS BEEN BA025 END STATEMENT IS MISSING OR MISPLACED 
DETECTED. THE SUBSCRIPT IS EITHER LESS THAN ALL BASIC PROGRAMS MUST HAVE AN END STATEMENT AS 
ZERO OR GREATER THAN THE NUMBER SPECIFIED AS THE THE LAST LINE. INSERT AN END STATEMENT AND RERUN. 
UPPER LIMIT IN THE DIM STATEMENT. IF NO DIM 
STATEMENT IS USED, THE UPPER LIMIT IS 10. BA026 UNCORRECTED ERROR IN SOURCE 
ONE OF THE STATEMENTS FLAGGED DURING THE PREVIOUS 
BAOI6 FILE STATEMENT INVALID FOR FILE #0 OLD COMMAND HAS NOT BEEN ELIMINATED OR CORRECTED. 
THE CHANNEL SETTER SPECIFIED WITH THE FILE THE NUMBER OF THAT LINE IS SHOWN. 
STATEMENT RESULTS IN A VALUE OF 0. CHANNEL 
0 (THE TERMINAL) CANNOT BE DEFINED BY A FILE BA027 LOADER ERROR AT LINE XXXXX (IN AAAAAAAA) 
STATEMENT. WHEN THE ERROR WAS DETECTED, THE BASIC COMPILER 
WAS AT THE LINE NUMBER GIVEN BY XXXXX. THIS 
BAO17 STRING EXCEEDS 4095 CHARACTERS MESSAGE IS DISPLAYED IN CONJUNCTION WITH ANOTHER 
A STRING OPERATION HAS PRODUCED A STRING WITH ERROR MESSAGE. 
A LENGTH IN EXCESS OF 4095 CHARACTERS. THE 
MAXIMUM NUMBER OF CHARACTERS PERMITTED IN A BA028 SECOND DEFINITION OF AN ARRAY NOT ALLOWED 
STRING IS 4095. TWO DIMENSION STATEMENTS HAVE BEEN USED TO DEFINE 
THE SAME VARIABLE. REMOVE ONE OF THE STATEMENTS 
BAO18 CHANGE ERROR AND RERUN. 
THE CHANGE OPERATION SPECIFIED BY THE FLAGGED 
STATEMENT IS NOT VALID. POSSIBLE CAUSES OF THIS BA029 NUMBER OF SUBSCRIPTS FOR ARRAY INCORRECT 
ERROR ARE AN INVALID VECTOR OR VECTOR SIZE, THE VARIABLE THAT HAS CAUSED THE ERROR HAS 
INVALID BIT EXPRESSION, INVALID STRING RESULT, OR BEEN DIMENSIONED WITH A DIFFERENT NUMBER OF 
INVALID VALUE ENCOUNTERED DURING CONVERSION. SUBSCRIPTS THAN WERE FOUND IN THE REFERENCE 
70. IT. 
BA019 GIVEN LINE EXCEEDS 80 CHARS WHEN RESEQUENCED 
THE LINE SHOWN, WHEN RESEQUENCED, IS LARGER BA030 BASIC SOURCE LINES OUT OF ORDER 


THAN 80 CHARACTERS. THIS IS AN INFORMATIONAL MESSAGE 
IN THAT THE COMPLETE RESEQUENCED LINE IS WRITTEN 
OUT (AND CAN BE MODIFIED BY EDT), BUT IF THE PROGRAM 
IS LATER READ IN BY BASIC, IT WILL BE FLAGGED 

WITH AN ERROR FOR BEING OVER 80 CHARACTERS LONG. 


THE LINES OF SOURCE IN A BASIC PROGRAM READ IN 

BY A RUNOLD OR CHAIN STATEMENT ARE NOT IN ORDER. 
THIS IS MANDATORY. AN OLD COMMAND WILL BRING THIS 
PROGRAM INTO THE WORKSPACE FOR CORRECTING, AND A 
SAVE COMMAND WILL SAVE THE PROGRAM. 
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BA031 


BA032 


BA033 


BA034 


BA035 


BA036 


BA037 


BA038 


BA039 


BA040 
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BASIC 


C-3 


Error Message/HELP Command Message 


GOTO INTO OR OUT OF FUNCTION DEFINITION 

A FUNCTION MAY NOT REFERENCE PROGRAM LINES THAT 
DO NOT OCCUR WITHIN THE BODY OF THE FUNCTION, 

NOR MAY STATEMENTS OUTSIDE THE FUNCTION DEFINITION 
REFERENCE STATEMENTS WITHIN THE FUNCTION BODY. 
THIS APPLIES TO GOTO, GOSUB, ON, AND IF STATEMENTS. 


FUNCTION DEFINITION WITHIN A FUNCTION 

BASIC HAS DETECTED A FUNCTION WITHIN THE BODY 
OF ANOTHER FUNCTION DEFINITION. CHECK FOR A 
MISSING FNEND STATEMENT OR RESTRUCTURE THE 
FUNCTION. 


SECOND DEFINITION OF THE SAME FUNCTION 

THE SAME FUNCTION HAS BEEN DEFINED TWICE WITHIN 
THE PROGRAM. REMOVE ONE DEFINITION AND CORRECT 
THE PROGRAM. RERUN. 


NUMBER OF PARAMS IN FUNCTION CALL INVALID 

A MAXIMUM OF 16 PASSED PARAMETERS AND LOCAL 
VARIABLES MAY BE SPECIFIED ON A FUNCTION DEFINITION 
LINE. REDUCE THE NUMBER AND RERUN. 


DEF MUST PRECEDE REFERENCE IF LOCALS ARE USED 
WHEN LOCAL VARIABLES ARE USED IN A MULTILINE 
USER FUNCTION, THE DEFINITION MUST OCCUR AT A 
LOWER NUMBERED LINE THAN THE FIRST REFERENCE TO 
THAT FUNCTION. MOVE THE FUNCTION DEFINITION 

AND RERUN. 


SIMPLE VARIABLE INCONSISTENT WITH CALL 

THE CALL AND SUB LINES DIFFER IN THE SPECIFICA- 
TION OF A SIMPLE VARIABLE TO BE PASSED TO THE 
SUBPROGRAM. REMOVE THE INCONSISTENCY AND RERUN. 


FUNCTION ASSIGNMENT DOES NOT MATCH FUNCTION NAME 
THE NAME OF THE FUNCTION BEING ASSIGNED DIFFERS 
FROM THE NAME OF THE FUNCTION FROM WHICH IT 
APPEARS. ONLY THE FUNCTION BEING DEFINED MAY 

BE ASSIGNED A VALUE. 


“FNEND” FOUND WITHOUT FUNCTION DEFINITION 

THE FNEND STATEMENT WAS DETECTED, BUT IT WAS NOT 
AT THE END OF A FUNCTION. REMOVE THE STATEMENT 
OR PUT IT IN THE CORRECT PLACE AND RERUN. 


INCORRECT NESTING OF FOR-NEXT STATEMENT 

A FOR OR NEXT STATEMENT WHICH WAS NOT NESTED 

CORRECTLY WAS DETECTED. POSSIBLE CAUSES ARE: 

1) A FOR STATEMENT WITH THE SAME INDEX AS THE 
PREVIOUS FOR IN THE NEST. 

2) A NEXT THAT DOES NOT HAVE THE SAME INDEX AS 
THE FOR IMMEDIATELY PRECEDING IT. 

3) A NEXT STATEMENT THAT DOES NOT FOLLOW ANY 
PROPER FOR STATEMENT. 


FUNCTION ASSIGNMENT MUST APPEAR WITHIN FUNCTION 
A VALUE MUST BE ASSIGNED TO A MULTILINE FUNCTION 
BEFORE THE FNEND STATEMENT. THE FUNCTION VALUE 


MAY NOT BE DEFINED OUTSIDE THE BODY OF THE FUNCTION. 


BA041 


BA042 


BA043 


BA044 


BA045 


BA046 


BA047 


BA048 


BA049 


BA050 


BAOS51 


PARAMETER TYPE MIS-MATCH 

THE TYPE OF PARAMETER PASSED TO A FUNCTION/SUB- 
PROGRAM CONFLICTS WITH THE TYPE DEFINED FOR THE 
FUNCTION/SUBPROGRAM. FOR EXAMPLE, A NUMERIC 
VARIABLE WAS PASSED WHEN A STRING VARIABLE WAS 
EXPECTED. COMPARE THE LINE IN ERROR AND 

THE DEFINITION; CORRECT THE DISCREPANCY. 


DIMENSIONS INCONSISTENT IN SUB CALL 

THE TYPE OF VARIABLES USED IN THE SUB AND CALL 
LINES DIFFER. EITHER A SCALAR WAS USED WHERE AN 
ARRAY WAS EXPECTED OR THE NUMBER OF SUBSCRIPTS IN 
THE SUB AND CALL LINES DIFFER. 


# OF FUNCTION PARAMS INCONSISTENT IN CALL 

THE NUMBER OF PARAMETERS PASSED TO A SUBPROGRAM 
DOES NOT AGREE WITH THE NUMBER STATED ON THE SUB 
LINE, OR DOES NOT AGREE WITH ANOTHER CALL TO 

THE SAME PROGRAM. 


FUNCTION DEF MUST PRECEDE USE IN “CALL” 

IN ORDER FOR A USER FUNCTION TO BE PASSED TO A 
SUBPROGRAM, IT MUST BE DEFINED. MOVE THE DEFINITION 
INTO LOWER NUMBERED LINES BEFORE THE CALL. 


SUBROUTINE CALLING ITSELF 
A CALL STATEMENT HAS BEEN FOUND WHICH REFERENCES 
THE SUBPROGRAM IN WHICH IT RESIDES. RECURSIVE CALLS 
OF ANY KIND ARE PROHIBITED. 


NUMBER OF ARGUMENTS INCONSISTENT 

THE NUMBER AND TYPE OF ARGUMENTS PASSED IN THE 
CALL STATEMENT DO NOT AGREE WITH THE NUMBER AND 
TYPE ON THE SUB LINE. 


SUB NAME IS GREATER THAN 8 CHARACTERS 

THE NAME USED ON A SUB OR CALL STATEMENT MUST BE A 
STRING CONSTANT WHICH IS NOT LONGER THAN 8 CHARS. 
CORRECT THE SPELLING OR SHORTEN ITS LENGTH. 


SUBROUTINE LIMIT OF 30 EXCEEDED 

BASIC WILL NOT ACCEPT MORE THAN 30 SUBPROGRAMS. 
COMBINE SEVERAL SUBPROGRAMS OR CHANGE LOGIC TO 
ELIMINATE A FEW. 


A SUB STATEMENT OCCURRED BEFORE AN END 
SUBPROGRAMS MUST OCCUR AFTER THE MAIN PROGRAM. 
THIS MEANS THAT THEY MUST IMMEDIATELY FOLLOW AN 
END STATEMENT OR ANOTHER SUBPROGRAMS SUBEND 
STATEMENT. 


STATEMENT FOLLOWING END/SUBEND NOT SUB/REM 
THE ONLY PERMISSIBLE STATEMENT FOLLOWING AN END 
STATEMENT IS A SUB OR REM STATEMENT. CORRECT AND 
RERUN. 


SECOND DEFINITION OF SUB — DEFINITION IGNORED 
TWO SUBPROGRAMS WITH THE SAME NAME HAVE BEEN 
ENCOUNTERED DURING THE COMPILATION PROCESS. THE 
SECOND SUBPROGRAM WILL BE EQUALED. THE SECOND 
SUBPROGRAM MAY HAVE BEEN FOUND IN A LIBRARY 
ELEMENT AS A RESULT OF A LIBRARY SEARCH. THIS 

IS A NON-FATAL ERROR. 
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BA052 SUB: FNX PRECEDES “CALL” BA064 ACTIVE SUBROUTINES EXCEED 16 LEVELS 
A SUB STATEMENT DECLARING A PASSED. FUNCTION A MAXIMUM OF 16 LEVELS OF SUBPROGRAM CALLS MAY 
CANNOT OCCUR BEFORE THE STATEMENT THAT CALLS BE ISSUED. INVESTIGATE FOR A POSSIBLE PROGRAM 
IT (AND DEFINES THE FUNCTION PARAMETERS). LOOP. 
RELOCATE THE SUBPROGRAM SO THAT IT OCCURS 
AFTER AT LEAST ONE STATEMENT THAT CALLS IT. BA065 #0 INVALID ON CHAIN 
CHANNEL 0, THE TERMINAL, MAY NOT BE USED AS THE 
BA0S3 FUNCTION EXPECTED IN CALL OR SUB LINE FILE FROM WHICH THE CHAINED PROGRAM CAN BE READ. 
A PREVIOUS CALL STATEMENT PASSED A FUNCTION A DATA MANAGEMENT, TEMPORARY, OR LIBRARY FILE 
REFERENCE. THIS CALL DID NOT PASS A FUNCTION. MUST BE USED. 
THE PARAMETER TYPES MUST REMAIN THE SAME. 
RESOLVE THE CONFLICT AND RERUN THE PROGRAM. BAO66 CHAIN ERROR — INVALID NAME OR PASSING BAD FILE 
THERE ARE TWO POSSIBLE CAUSES FOR THIS ERROR. 
BAO54 “SUBEND” OR SUBEXIT” NOT IN A SUB THE LIBRARY ELEMENT SPECIFIED IN THE CHAIN STATEMENT 
A SUBEND OR SUBEXIT WAS ENCOUNTERED THAT WAS NOT DOES NOT EXIST, OR ONE OF THE CHANNEL NUMBERS 
IN A SUBPROGRAM. THE SUBEND MUST BE THE LAST OF FILES TO BE PASSED TO THE NEXT PROGRAM SEGMENT 
STATEMENT IN A SUBPROGRAM. 1S INVALID. 
BA055 “SUBEXIT” NOT ALLOWED IN FUNCTION DEFINITION BA067 ERROR ON READ FROM FILE (INVALID NUMBER) 
A SUBEXIT STATEMENT WAS ENCOUNTERED WITHIN A A READ STATEMENT ATTEMPTED TO READ A NUMERIC 
MULTILINE FUNCTION DEFINITION. IT CAN ONLY VARIABLE. THE RECORD THAT WAS READ DID NOT 
BE ISSUED FROM THE SUBPROGRAM LEVEL. CONTAIN NUMERIC DATA. 
BA056 “FNEND” STATEMENT MISSING BA068 INPUT DATA INCORRECT, RE-ENTER 
A USER DEFINED MULTILINE FUNCTION EXISTS IN THE DATA ENTERED FOR AN INPUT STATEMENT DOES 
THE PROGRAM WITHOUT A CLOSING FNEND STATEMENT. NOT MATCH THE DATA TYPES REQUIRED FOR THE 
LOCATE THE FUNCTION AND INSERT THE STATEMENT. PROGRAM. THE ENTIRE LINE MUST BE RE-ENTERED. 
THIS MESSAGE COULD ALSO BE CAUSED BY TOO MUCH 
BA057 FUNCTION HAS NOT BEEN DEFINED OR TOO LITTLE DATA IN THE INPUT RESPONSE. 
THE FUNCTION REFERENCED ON THE LINE IN ERROR 
HAS NOT BEEN DEFINED. DEFINE THE FUNCTION OR BA069 INVALID TAB EXPRESSION FOR PRINTING 
REMOVE THE REFERENCE TO IT AND RERUN. THE ARGUMENT OF THE TAB FUNCTION WAS LESS THAN 
ONE. 
BA058 LIMIT OF 4 “LIBRARY” STATEMENTS EXCEEDED 
BASIC WILL SEARCH AT MOST FOUR LIBRARIES FOR BA070 PRINT TO FILE > MARGIN SIZE 
SUBPROGRAMS, THE PROGRAM HAS ATTEMPTED TO USE THE PROGRAM ATTEMPTED TO PRINT A STRING, NUMBER, 
MORE THAN FOUR. OR USING STRING WITH A LENGTH GREATER THAN THE 
CURRENT MARGIN SETTING. CHANGE THE MARGIN SIZE 
BAQ59 TIME UP — PROGRAM LOOPING OR REDUCE THE LENGTH OF THE EXPRESSION PRINTED. 
THE TIME LIMIT SPECIFIED IN THE TIME STATEMENT 
HAS BEEN EXCEEDED. IT MAY BE LOOPING OR IT MAY BAQ71 INVALID OPERATION FOR FILE TYPE 
REQUIRE MORE TIME. THE OPERATION TO BE PERFORMED AGAINST THE FILE 
CONFLICTS WITH THE FILE TYPE. 
BA060 RETURN WITHOUT MATCHING GOSUB CALL 
THE PROGRAM HAS ATTEMPTED TO RETURN FROM A BA072 SET MARGIN FOR DMS FILE NOT AT RECORD 0 
SUBROUTINE THAT WAS NOT CALLED BY A GOSUB A MARGIN STATEMENT WAS ISSUED AGAINST A DATA 
STATEMENT. MANAGEMENT FILE WHILE IT STILL HAS DATA IN IT. 
THE MARGIN STATEMENT MAY ONLY BE USED WHEN THE 
BA061 EXPRESSION OUT OF COMPUTED GOTO RANGE FILE 1S EMPTY. 
THE CALCULATED EXPRESSION IS NOT A VALID NUMBER 
FOR THIS COMPUTED GOTO. IT IS EITHER TOO LARGE BA073 INVALID MARGIN SIZE 
OR NON-POSITIVE. THE COUNT OF LINE NUMBERS IN THE MARGIN EXPRESSION SPECIFIED ON THE FLAGGED 
THE STATEMENT DETERMINES THE LARGEST VALUE THE STATEMENT RESULTED IN A NUMBER LESS THAN 0 OR 
EXPRESSION MAY HAVE. GREATER THAN 4095. THIS ERROR COULD ALSO HAVE 
RESULTED FROM ATTEMPTING TO SET THE SIZE OF THE 
BA062 EXECUTION STOPPED AT LINE XXXXX MARGIN GREATER THAN THE LIMIT FOR THE FILE TYPE. 
A STOP STATEMENT HAS BEEN ENCOUNTERED OR AN 
ERROR DETECTED AT THE LINE NUMBER GIVEN BY XXXXxX. BA074 OPERATION NOT PERMITTED TO FILE 
THE OPERATION TO BE PERFORMED AGAINST THE FILE 
BA063 EXECUTION PAUSED AT LINE XXXXX CONTINUE (Y,N) CONFLICTS WITH THE FILE TYPE. 


A PAUSE STATEMENT HAS BEEN ENCOUNTERED AT LINE 
XXXXX. ANSWER “YES” TO CONTINUE EXECUTION: 
ANSWER “NO” TO TERMINATE THE PROGRAM. 











BAQ75 


BA076 


BA077 


BA078 


BA079 


BA080 


BA081 


BA082 


BA083 


BA084 


BA085 


BA086 
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ATTEMPTED TO RESET FILE BEYOND EOF OR NEGATIVE 
THE RESET STATEMENT MAY NOT REPOSITION THE FILE 
BEYOND THE CURRENT END-OF-FILE POINTER. THE 
RECORD NUMBER SPECIFIED MUST BE POSITIVE. 


ATTEMPT TO TEST END OR MORE ON RANDOM FILE 
THE IF-END OR IF-MORE FORMATS MAY ONLY BE 
USED AGAINST TERMINAL FORMAT FILES. CHECK 
THE FILE TYPE REFERENCED BY THIS STATEMENT. 


INSUFFICIENT DATA TO READ 

ALL DATA STATEMENTS IN THE PROGRAM HAVE BEEN USED, 
YET THE PROGRAM ATTEMPTED TO REQUEST ADDITIONAL 
DATA. 


MORE THAN 32 FILES OPEN 

BASIC DOES NOT SUPPORT THE CONCURRENT USE OF MORE 
THAN 32 TEMPORARY AND/OR LIBRARY FILES PER USER. 
THIS PROGRAM HAS EXCEEDED THE LIMIT. 


CHANNEL NUMBER INVALID IN FILE STATEMENT 

THE CHANNEL-SETTER USED IN THE FILE STATEMENT 
RESULTS IN A CHANNEL NUMBER THAT IS NOT IN THE 
RANGE OF 1 10 4095. CHANNEL 0 CANNOT BE 
DEFINED BY A FILE STATEMENT. 


NO FORMAT STRING DEFINED IN USING STRING 

THE USER PROGRAM ATTEMPTED TO PRINT A VARIABLE 
USING A FORMAT STRING THAT DOES NOT CONTAIN ANY 
FORMAT STRING CHARACTERS. 


NULL USING STRING NOT ALLOWED 
THE USING STRING SPECIFIED IN THE PRINT STATEMENT 
IS A NULL STRING. DEFINE THE VARIABLE AND RERUN. 


INVALID FIELD DESCRIPTOR, EXPECTING <,> 

THE USER PROGRAM ATTEMPTED TO PRINT A STRING 
VARIABLE WITH A NUMERIC FORMAT. CORRECT THE PROGRAM 
AND RERUN. 


INVALID FIELD DESCRIPTOR, EXPECTING $,+,— 

THE USER PROGRAM ATTEMPTED TO PRINT A NUMERIC 
VARIABLE WITH A STRING FORMAT. CORRECT THE 
PROGRAM AND RERUN. 


INVALID EXPONENT FIELD IN USING STRING 

AN EXPONENT FIELD MUST CONSIST OF EXACTLY FIVE 
UP ARROWS, AND CANNOT BE FOLLOWED BY A PLACE 
HOLDER NUMBER. CORRECT PROGRAM AND RERUN. 


DIVISION BY ZERO, EXECUTION CONTINUES 

THE PROGRAM HAS ATTEMPTED A DIVISION BY ZERO. THE 
ALGEBRAIC RESULT OF DIVISION BY ZERO IS UNDEFINED; 
HOWEVER, EXECUTION CONTINUES USING A HIGH VALUE. 


EXPONENT OVERFLOW, EXECUTION CONTINUES 

THE RESULT (OR INTERMEDIATE RESULT) OF A 
COMPUTATION HAS EXCEEDED THE LARGEST NUMBER 
THE HARDWARE IS CAPABLE OF HANDLING. THIS 
NUMBER IS APPROXIMATELY 10**75. MACHINE 
INFINITY IS SUPPLIED AND EXECUTION CONTINUES. 


BA087 


BA088 


BA089 


BA090 


BA091 


BA092 


BA093 


BA094 


BA095 


BA096 


BA097 


BA098 


BA099 


BASIC FILE NOT OPEN OR NO DATA STATEMENTS 

THE CHANNEL NUMBER REFERENCED BY THE FLAGGED 
STATEMENT HAS NOT BEEN OPENED BY A FILE 

STATEMENT. CHECK THE CHANNEL SETTER FOR A VALID 
FILE, OR ISSUE A FILE STATEMENT FOR THE CHANNEL 

TO BE USED. THIS ERROR CAN ALSO RESULT WHEN 

READ STATEMENTS ARE ISSUED AND NO DATA ARE PRESENT. 


RENAME ERROR 

THE STRING EXPRESSION USED TO SUPPLY THE NEW 

FILE NAME DOES NOT CONTAIN A VALID FILE PARAMETER 

OR TEMPORARY FILE NAME. THIS ERROR MAY ALSO BE 

THE RESULT OF ATTEMPTING TO RENAME A DATA MANAGEMENT 
FILE. 


FILE tS NOT A LIBRARY FILE 

THE FILE SPECIFIED BY THE COMMAND IS NOT A LIBRARY 
FILE OR HAS NOT BEEN INITIALIZED BY THE LIBRARIAN. 
HAVE THE SYSTEM LIBRARIAN PREPARE THE FILE, AND 
BE SURE YOU ARE USING THE CORRECT FILE. 


“FATAL WORK SPACE FILE DOPEN ERROR 
BASIC CANNOT ALLOCATE THE DISK WORKSPACE. BASIC 
TASK WILL BE ABNORMALLY TERMINATED. 


*FATAL WORK SPACE FILE DCLOSE ERROR 

AN 1/0 ERROR HAS OCCURRED WHILE CLOSING THE DISK 
WORKSPACE. BASIC TASK WILL BE ABNORMALLY 
TERMINATED. 


WORK SPACE FILE DMSEL/DMINP ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE READING FROM THE 
DISK WORKSPACE. 


WORK SPACE FILE DMINP/DMUPD/DMOUT ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE WRITING TO THE 
DISK WORKSPACE. 


WORK SPACE FILE DMINP/DMDEL ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE DELETING FROM 
THE DISK WORKSPACE. 


“FATAL TERMINAL FILE DMOUT ERROR 


AN 1/0 ERROR HAS OCCURRED WHILE WRITING TO THE 


TERMINAL FILE. BASIC TASK WILL BE ABNORMALLY 
TERMINATED. 


*FATAL FILE DMINP ERROR 

AN 1/0 ERROR HAS OCCURRED WHILE READING FROM THE 
TERMINAL FILE. BASIC TASK WILL BE ABNORMALLY 
TERMINATED. 


LIBRARY FILE DCLOSE ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE CLOSING THE 
LIBRARY FILE. 


LIBRARY FILE READ ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE READING FROM 
THE LIBRARY FILE. 


LIBRARY FILE WRITE ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE WRITING TO THE 
LIBRARY FILE. 
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BA101 


BA102 


BA103 


BA104 


BALOS 


BA106 


BA107 


BA108 


BA109 


BA110 
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1/0 ERROR WHILE ACCESSING V.T.0.C. 

AN 1/0 ERROR HAS OCCURRED WHILE ACCESSING THE VTOC 
FOR THE DISK VOLUME SPECIFIED. RETRY OR INVES- 

TIGATE FOR POSSIBLE HARDWARE PROBLEM. 


1/0 ERROR ON WRITE TO FILE 

AN 1/0 ERROR HAS OCCURRED WHILE WRITING TO A DATA 
MANAGEMENT FILE. INVESTIGATE FOR POSSIBLE HARD- 
WARE PROBLEM OR RETRY THE PROGRAM. 


DATA FILE FULL, DATA NOT ADDED 
CANNOT ACQUIRE ANY ADDITIONAL SPACE. 


INVALID BLOCK SIZE OR RECORD SIZE 

BASIC CANNOT PROCESS THE FILE DUE TO A CONFLICT 
WITH THE BLOCK OR RECORD SIZE FOR THIS FILE. IF 
THE FILE ALREADY EXISTS, CHECK THAT THE BLOCK 
SIZE OR RECORD SIZE 1S NOT 0 OR GREATER THAN 65K. 


ERROR PROCESSING USER FILE LABEL 
THE FILE BEING ACCESSED CONTAINS USER FILE LABELS. 
THESE CANNOT BE PROCESSED BY BASIC. 


INVALID KEY LENGTH 
FILES CONTAINING KEYS CANNOT BE PROCESSED BY BASIC. 


INTERNAL ERROR IN FILE ACCESS ROUTINE 
AN INTERNAL ERROR HAS BEEN DETECTED IN THE FILE 
ACCESS ROUTINE IN BASIC. 


1/0 ERROR WHILE READING DATA FILE 
AN 1/0 ERROR HAS OCCURRED WHILE READING FROM THE 
DATA FILE. 


1/0 ERROR WHILE WRITING DATA FILE 
AN 1/0 ERROR HAS OCCURRED WHILE WRITING TO THE 
DATA FILE. 


*FATAL GETBUF/FREEBUF ERROR 
BASIC COULD NOT ACQUIRE SYSTEM BUFFER POOL. 
BASIC TASK WILL ABNORMALLY TERMINATE. 


SYSTEM COMMAND REJECTED 
BASIC SYSTEM COMMAND HAS BEEN REJECTED. CHECK 
THE SYSTEM COMMAND STRING. 


BA111 


BA112 


BA113 


BA114 


BAII5 


BA116 


BA117 


BA118 


LIBRARY FILE DOPEN ERROR 
AN 1/0 ERROR HAS OCCURRED WHILE OPENING THE 
LIBRARY FILE. 


BATCH END-OF-DATA REACHED 

BASIC PROGRAM RUNNING IN ENTER STREAM 
HAS ENCOUNTERED AN END-OF-DATA CONDITION. 
RERUN PROGRAM WITH ENOUGH DATA TO 
SATISFY INPUT REQUESTS. 


BASIC TASK NORMAL TERMINATION 
BASIC TASK HAS TERMINATED NORMALLY. 
THIS MESSAGE IS INFORMATIONAL ONLY. 


ELEMENT IS NOT IN THE LIBRARY FILE 

THE ELEMENT REQUESTED BY THE COMMAND IS IN THE 
FILE SPECIFIED. CHECK THE SPELLING OF THE PROGRAM 
NAME AND VERIFY THAT THE PROGRAM IS ON THE FILE. 


ALSO BE SURE THE CORRECT MODULE TYPE HAS BEEN USED 


(P FOR PROCS). 


TANGENT/COTANGENT OUT OF RANGE 

THE RESULT OF A TAN OR COT FUNCTION EVALUATION 
CAUSED AN OVERFLOW CONDITION. MACHINE INFINITY 
1S SUPPLIED AND EXECUTION CONTINUES. 


ARGUMENT TOO LARGE FOR EXP(X) FUNCTION 


A VALUE HAS BEEN USED WITH THE EXPONENTIAL FUNCTION 


WHICH WILL PRODUCE A RESULT GREATER THAN THE 
HARDWARE IS CAPABLE OF HANDLING. THE MAXIMUM 
POSSIBLE VALUE FOR THE EXP ARGUMENT IS APPROX- 
IMATELY 174.6. 


NO MEMORY AVAILABLE FOR FILE 1/0 BUFFER 
AN AREA OF MAIN STORAGE COULD NOT BE ACQUIRED 
FOR THE DATA FILE 1/0 BUFFER. 


SOURCE MODULE NOT SAVED — TERMINATE (Y,N)? 
SOURCE PROGRAM REMAINS IN THE DISK WORKSPACE 
WHEN A BYE COMMAND IS ENTERED. IF THE SOURCE 
MODULE NEEDS TO BE SAVED, ENTER “N” FOLLOWED 
BY THE APPROPRIATE SAVE COMMAND. IF IT IS 

NOT NEEDED, ANSWER “Y” TO TERMINATE THE BASIC 
SESSION. 
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BA119 


BA126 


BA127 


BA128 


BA129 


BA130 


BA131 


BA132 


BA133 


BA134 


HELP Command Message for Syntax Error 


RECURSIVE FUNCTION CALLS NOT ALLOWED 

A FUNCTION OR SUBPROGRAM MAY NOT CALL ITSELF 
DIRECTLY OR INDIRECTLY (VIA ANOTHER FUNCTION 
OR SUBPROGRAM). 


MG#BSBVD 

EACH BASIC STATEMENT MUST BEGIN WITH A VALID 

LINE NUMBER. THIS LINE NUMBER MUST BE IN THE RANGE 
1 TO 99999, AND MUST NOT CONTAIN A DECIMAL POINT 

OR AN EXPONENT. ENTER A VALID LINE NUMBER. 


MG#INSVD 
BASIC INSTRUCTION EXPECTED. VALID INSTRUCTIONS WHICH 
MAY BEGIN A STATEMENT ARE: 


LET IF GO ON RETURN 
PAUSE STOP END FOR NEXT 
DEF FNEND SUB SUBEND CALL 
LIBRARY REM DATA FILE RESET 
RESTORE READ INPUT LINPUT — WRITE 
PRINT MARGIN. SCRATCH CHAIN CHANGE 
RANDOMIZE DIM MAT TIME SYSTEM 
SUBEXIT 

MG#COPEX 


A COMPARISON OPERATOR IS EXPECTED AT THIS POINT. 
VALID COMPARISON OPERATORS ARE : =,<,>,=>,>=, 
HQ<=<> 


MG#MIXMD 

MIXED MODE COMPARISON IS INVALID. A NUMERIC 
EXPRESSION MAY ONLY BE COMPARED TO ANOTHER NUMERIC 
EXPRESSION, OR A STRING EXPRESSION TO ANOTHER 

STRING. 


MGHISSTE 
AN IF STATEMENT MUST END WITH A “GOTO LINE-NUM’, 
“GOSUB LINE-NUM”, OR “THEN LINE-NUM”. 


MG#GOINS 
THE “GO” INSTRUCTION MUST BE FOLLOWED BY A “TO” OR 
A “SUB”, AS IN “GOTO” OR “GOSUB”. 


MG#LNENB 
A LINE NUMBER IS EXPECTED HERE. 


MG#GOEPN 
THE WORD “GOTO” OR “GOSUB” IS EXPECTED NEXT. THE 
GENERAL FORMAT OF AN “ON” STATEMENT IS: 

ON NUM-EXPR GOTO LINE-NUM,LINE-NUM.... 

ON NUM-EXPR GOSUB LINE-NUM,LINE-NUM.... 


MGH#EDOPR 

AN END OR MORE OPTION REQUIRES THAT A CHANNEL 
SETTER FOLLOW. ENTER “#N" TO COMPLETE THE “END” 
OR “MORE” OPTION. 


BA135 


BA136 


BA137 


BA138 


BA139 


BA140 


BA141 


BA142 


MG#LNBSR 
A LINE NUMBER OR SERIES OF LINE NUMBERS IS 
EXPECTED HERE. IF A SERIES OF LINE NUMBERS 
ARE PRESENT, THEY MUST BE SEPARATED BY COMMAS. 
THE GENERAL FORMAT OF AN “ON” STATEMENT IS: 

ON NUM-EXPR GOTO LINE-NUM,LINE-NUM.... 

ON NUM-EXPR GOSUB LINE-NUM,LINE-NUM.... 


MG#MIXAS 

MIXED MODE ASSIGNMENTS ARE NOT PERMITTED. AN 
EXPRESSION WITH A NUMERIC VALUE MAY ONLY BE 
ASSIGNED TO A NUMERIC VARIABLE, AND EXPRESSIONS 
WITH STRING VALUES MAY ONLY BE ASSIGNED TO 
STRING VARIABLES. STRING VARIABLES ARE 
DISTINGUISHED FROM NUMERIC VARIABLES BY THE 
PRESENCE OF A DOLLAR SIGN: A$,Z3$ — STRING 

AND A,Z3 — NUMERIC. 


MG#EQUSN 

AN EQUAL SIGN IS REQUIRED BETWEEN VARIABLES, OR 

BETWEEN VARIABLES AND THE ASSIGNED EXPRESSION: 
LET VARI=VAR2=...=VARN=EXPRESSION 


MG#EXPAS 

THE EXPRESSION TO BE ASSIGNED TO THIS VARIABLE IS 
NOT PRESENT OR IS INCOMPLETE. AN EXPRESSION OR 
ANOTHER VARIABLE MUST FOLLOW THE EQUAL SIGN. 


MG#EQSEP 

AN EQUAL SIGN IS EXPECTED HERE. A POSSIBLE CAUSE FOR 
THIS ERROR COULD BE AN ATTEMPT TO ASSIGN A VALUE TO AN 
EXPRESSION. VALUES MAY ONLY BE ASSIGNED TO VARIABLES 
OR FUNCTION NAMES. 


MG#SPNMV 
A SIMPLE NUMERIC VARIABLE NAME, FOLLOWED BY AN ASSIGNMENT 
IS EXPECTED AFTER THE “FOR” INSTRUCTION. THE 
GENERAL FORMAT OF THE “FOR” INSTRUCTION IS: 
FOR VAR=EXPR TO EXPR 
FOR VAR=EXPR TO EXPR STEP EXPR 


MG#ONLAL 
THE ONLY VALID INSTRUCTIONS AT THIS POINT ARE 
“TO” OR “STEP”. THIS ERROR COULD ALSO BE THE 
RESULT OF NOT SPECIFYING A “TO” EXPRESSION. 
THE GENERAL FORMAT OF THE “FOR” INSTRUCTION IS: 
FOR VAR=EXPR TO EXPR 
FOR VAR=EXPR TO EXPR STEP EXPR 


MG#SDTOA 
THIS IS THE SECOND TIME “TO” APPEARED IN THIS 
STATEMENT. IT 1S ALLOWED ONLY ONCE. THE 
GENERAL FORMAT OF THE ‘FOR” STATEMENT IS: 
FOR VAR=EXPR TO EXPR 
FOR VAR=EXPR TO EXPR STEP EXPR 
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BA144 


BA145 


BA146 


BA147 


BA148 
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MG#SDSTA BA150 
THIS IS THE SECOND TIME “STEP” APPEARED IN THIS 
STATEMENT. IT 1S ALLOWED ONLY ONCE. THE 
GENERAL FORMAT OF THE “FOR” STATEMENT IS: 
FOR VAR=EXPR TO EXPR 
FOR VAR=EXPR TO EXPR STEP EXPR 


BAL51 
MG#SMPRQ 
A SIMPLE NUMERIC VARIABLE NAME IS EXPECTED HERE. 
THE GENERAL FORMAT OF THE NEXT STATEMENT IS: 
NEXT VAR BA152 


MG#FUNCD 
A FUNCTION DEFINITION MUST BEGIN WITH THE FUNCTION 
NAME. A FUNCTION NAME BEGINS WITH “FN” IMMEDIATELY 
FOLLOWED BY A LETTER. 
THE GENERAL FORMAT FOR A DEFINITION IS: 
DEF FCN-NAME 
DEF FCN-NAME(PARAM-LIST) 
DEF FCN-NAME LOCAL-LIST BA153 
DEF FCN-NAME (PARAM-LIST) LOCAL-LIST 
AN ASSIGNMENT MAY BE MADE AT THE END OF ANY OF 
THESE FORMATS, FOR EXAMPLE: 
DEF FCN-NAME(PARAM-LIST)=EXPR 
* PARAM-LIST SPECIFIES PARAMETERS TO BE PASSED 
TO THE FUNCTION. 
* LOCAL-LIST SPECIFIES LOCAL VARIABLE NAMES. 
* IF THE FUNCTION CAN BE DEFINED IN ONE LINE, AN 
“FNEND” STATEMENT IS NOT NEEDED. 


MGHSTMEV 

A STATEMENT MUST END HERE, OR A VALUE ASSIGNMENT 

MUST BE MADE. REFER TO “HELP BA145" FOR A 

GENERAL DESCRIPTION OF A FUNCTION DEFINITION. BA154 


MG#PRLPR 

THE PRESENCE OF A LEFT PARENTHESIS HERE MEANS YOU 
ARE TRYING TO LIST PASSED PARAMETERS FOR THIS 
FUNCTION. THESE ARE SPECIFIED BY A LIST OF 

VARIABLE NAMES (A,B2,C$,Z1$,F....) SEPARATED BY 
COMMAS. THE LIST MUST TERMINATE WITH A RIGHT 
PARENTHESIS. REFER TO “HELP BA145” FOR A GENERAL 
DESCRIPTION OF A FUNCTION DEFINITION. 


MGHCMAFN 

A COMMA AFTER THE FUNCTION NAME OR THE LIST OF BAL5S 
PARAMETERS INDICATES THAT YOU ARE TRYING TO STATE 

THE NAMES OF THE LOCAL VARIABLES, SPECIFIED BY 

A SERIES OF VARIABLE NAMES SEPARATED BY COMMAS. 

REFER TO “HELP BA145"’ FOR A GENERAL DESCRIPTION OF 

A FUNCTION DEFINITION. 


MG#SBDST 

A SUBPROGRAM DEFINITION MUST BEGIN WITH A STRING 

CONSTANT STATING THE NAME OF THE SUBPROGRAM. 

THIS 1S FOLLOWED BY A COLON, AND THEN AN OPTIONAL 

LIST OF PASSED PARAMETERS: 

SUB-STRING:FUNCTION, FUNCTION BA156 
SUB-STRING:FILE-NUM, FILE-NUM.... 
SUB-STRING:MATRIX- NAME, MATRIX-NAME 

SUB-STRING:VAR, VAR 





MG#FNFMM 

ANOTHER FILE-NUMBER, FUNCTION-NAME, MATRIX, OR 
VARIABLE-NAME IS EXPECTED AFTER THE COMMA. IF 

NO MORE ARE TO BE SPECIFIED, REMOVE THE EXTRA 

COMMA; OTHERWISE DEFINE THE EXTRA NAME. 


MG#STEDC 
THE STATEMENT MUST END HERE, OR A COMMA MUST BE 
USED TO SEPARATE THE LIST OF NAMES. 


MG#MRDEP 

A MATRIX DEFINITION IS EXPECTED HERE. THIS MAY 
BE EITHER A VECTOR, SPECIFIED BY A VECTOR NAME 
FOLLOWED BY A LEFT-PAREN AND RIGHT-PAREN: V()— 
OR AN ARRAY, SPECIFIED BY A MATRIX NAME 
FOLLOWED BY A LEFT-PAREN, A COMMA, AND A RIGHT- 
PAREN: A(,). TO CORRECT THIS, ENTER A COMMA 

OR A “)”. 


MG#CALST 

THE “CALL” STATEMENT MUST BEGIN WITH A STRING 
CONSTANT STATING THE NAME OF THE SUBPROGRAM TO 
BE CALLED. THIS IS FOLLOWED BY A COLON, AND THEN 
A LIST OF VARIABLES, EXPRESSIONS, FUNCTIONS, OR 
MATRICIES OR FILES TO BE PASSED. THE GENERAL 
FORMAT IS: 


CALL-STRING: #N HN pw ETC 
VAR VAR 
FUNCT FUNCT 
EXPR EXPR 


MATRIX MATRIX 


MGHSTMEC 

THE CALL STATEMENT MUST BEGIN WITH A STRING 
CONSTANT STATING THE NAME OF THE SUB-PROGRAM 
TO BE CALLED. THIS 1S FOLLOWED BY A COLON, AND 
THEN A LIST OF PASSED PARAMETERS. THE GENERAL 
FORMAT OF THE CALL STATEMENT IS. 


CALL-STRING—#N LAN 
VAR VAR 
FUNCTION — FUNCTION 
EXPR EXPR a... 


MATRIX MATRIX 


MG#FNIDT 

A FUNCTION NAME HAS JUST BEEN DETECTED. iT 
COULD BE AN EXPRESSION CONTAINING A FUNCTION 
VALUE TO BE PASSED, IN WHICH CASE IT SHOULD 
BE FOLLOWED BY A LEFT PAREN. IT COULD ALSO 
BE THE NAME OF A FUNCTION TO BE PASSED, IN 
WHICH CASE IT MUST BE THE LAST ITEM IN THE 
STATEMENT, OR FOLLOWED BY A COMMA. THE 
ERROR WAS CAUSED BY THE FUNCTION NAME NOT 
BEING AT THE END OF A LINE, OR NOT FOLLOWED 
BY A LEFT PAREN OR COMMA. 


MGHMXIDT 

A MATRIX REFERENCE HAS JUST BEEN DETECTED IN 
WHICH AN ENTIRE MATRIX IS TO BE PASSED TO A 
SUBPROGRAM. TO DO SO, THE COMMA MUST BE 
FOLLOWED BY A RIGHT-PAREN - A3(,) OR FS(). 
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BA158 


BA159 


BA160 


BA161 
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MG#LIBST 
A “LIB” STATEMENT IS COMPOSED OF A LIST OF 
LIBRARIES TO BE SEARCHED FOR SUBPROGRAMS. 
THESE ARE STATED AS STRING CONSTANTS, 
SEPARATED BY COMMAS. THE FORMAT FOR THIS 
STATEMENT IS: 

LIB STRING, STRING... 


MG#CHINP 

THE CHANNEL SETTER (#) IMPLIES THAT YOU ARE 
TRYING TO DEFINE A FILE TO BE PASSED TO THIS 
SUBPROGRAM. IT MUST BE FOLLOWED BY A NUMERIC 
CONSTANT TO BE CORRECT — #3, #17.5, ETC. 


MGHCHEPC 

A CHANNEL EXPRESSION IS COMPOSED AS FOLLOWS: 
#NUMERIC-EXPR: 

WHERE NUMERIC-EXPR IS THE CHANNEL TO BE 

REFERENCED. 


MG#FLSTD 

A “FILE” STATEMENT DEFINES THE FILE NAME AND 

ASSOCIATED CHANNEL NUMBER TO BE USED WITH IT: 
FILE #N:"EXTERNAL-FILE-NAME” 

WHERE #N IS THE ASSOCIATED CHANNEL NUMBER. 

SEE UP-9168 FOR DETAILS ON “EXTERNAL-FILE-NAME”. 


MG#RSSTC 
A “RESET” STATEMENT MAY OPTIONALLY CONTAIN A 
CHANNEL SETTER, AND IF ONE IS CODED, A NUMERIC 
FILE POSITION MAY ALSO BE SPECIFIED. THE 
STATEMENT MUST EITHER END HERE, OR A CHANNEL 
EXPRESSION MUST FOLLOW. 
THE GENERAL FORMAT FOR A “RESET” STATEMENT IS: 
RESET 
RESET #N 
RESET #N:NUMERIC-EXPR 


MG#CHSRS 
THE CHANNEL STATEMENT IN A “RESET” STATEMENT MUST 
EITHER END THE STATEMENT OR BE FOLLOWED BY A 
COLON (:) AND ANOTHER EXPRESSION. THE GENERAL 
FORMAT OF THE RESET STATEMENT IS: 

RESET 

RESET #N 

RESET #N:NUMERIC-EXPR 


MG#RIWST 
A “READ” OR “WRITE” STATEMENT IS COMPOSED OF AN 
OPTIONAL CHANNEL SETTER FOLLOWED BY A LIST OF 
VARIABLE NAMES (IN THE CASE OF A “READ”), 
OR A LIST OF EXPRESSIONS (IN THE CASE OF A 
“WRITE"). EACH VARIABLE OR EXPRESSION MUST BE 
SEPARATED BY A COMMA (“READ”), OR COMMA OR 
SEMICOLON (“WRITE”). THE GENERAL FORMAT IS: 

INPUT VARI,VARZ....,VARN 

INPUT #N-:VARI, VAR2..... VARN 

READ VARI, VAR2....,VARN 

READ #N: VARI,VAR2...., VARN 

WRITE VARI,VARZ....,.VARN 

WRITE VARI;VAR2...; VARN 

ETC. 


BA164 


BA165 


BA166 


BA167 


BA168 


BA169 


BA170 


MG#ILSYM 

AN ILLEGAL SYMBOL HAS BEEN FOUND IN THE INPUT. 
THIS COULD BE THE RESULT OF FINDING A CHARACTER 
WHICH IS NOT IN THE BASIC CHARACTER SET, OR 

AN INVALID VARIABLE NAME OR NUMERIC CONSTANT. 
A NUMERIC CONSTANT IS MADE UP OF A FRACTIONAL 
PART AND AN OPTIONAL EXPONENT PART. THE 
FRACTIONAL PART MAY CONTAIN AT MOST ONE 
DECIMAL POINT, AND MUST BEGIN WITH A DIGIT OR 

A DECIMAL POINT. THE EXPONENT PART MUST 
CONSIST OF THE LETTER E FOLLOWED OPTIONALLY 

BY A SIGN AND ONE OR TWO DIGITS. THE EXPONENT 
MUST NOT BE GREATER THAN E70 OR LESS THAN E—70. 


MG#TABPU 

“TAB” MAY NOT BE USED WITH “PRINT USING”. 

ANY TAB EXPRESSION IS INVALID WHILE IN PRINT USING 
MODE. 


MG#PULST 

A PRINT USING LIST HAS BEEN FOUND IMMEDIATELY AFTER 
ANOTHER PRINT USING LIST, WITHOUT A TERMINATOR FOR THE 
FIRST LIST. A “PRINT USING” LIST 

CONSISTS OF THE KEYWORD “USING”, FOLLOWED BY A 

STRING EXPRESSION, A LIST OF VARIABLES TO BE 

PRINTED, AND FINALLY A SEMICOLON OR END-OF-LINE. 
ANOTHER “PRINT USING” LIST’ MAY NOT APPEAR UNTIL 

THE FIRST LIST IS TERMINATED. SEMICOLON IS 

EXPECTED HERE, THEN THE NEXT USING. 


MG#MARGN 
THE “MARGIN” STATEMENT IS EXPECTED TO END HERE. 
EXTRA CHARACTERS ARE PRESENT IN THE INPUT LINE. 
THE FORMAT FOR A MARGIN STATEMENT IS: 

MARGIN NUMERIC-EXPR 

MARGIN #N:NUMERIC-EXPR 


MG#SCRCH 
THE “SCRATCH” STATEMENT 1S EXPECTED TO END HERE. 
EXTRA CHARACTERS ARE PRESENT IN THE INPUT LINE. 
THE FORMAT FOR A “SCRATCH” STATEMENT IS: 
SCRATCH 
SCRATCH #N 


MGHCHAIN 
THE “CHAIN” STATEMENT MUST END HERE, OR THE NEXT 
WORD MUST BE “WITH”. THE GENERAL FORMAT OF A 
CHAIN STATEMENT IS: 
CHAIN #N 
CHAIN #N WITH #N,#N.... 
CHAIN “EXTERNAL-FILE-NAME” 
CHAIN “EXTERNAL-FILE-NAME” WITH “EXT-FIL-NAME”.... 


MG#LSOFL 

WHEN A LIST OF FILES TO BE PASSED TO THE 

CHAINED PROGRAM IS SPECIFIED, EACH FILE NUMBER IN 
THE LIST MUST BE SEPARATED BY A COMMA. 
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HELP Command Message for Syntax Error 


MGHCHAIS 
IN THIS FORM OF THE “CHANGE” INSTRUCTION, A STRING 
IS BEING CONVERTED TO A NUMERIC ARRAY. FOLLOWING 
THE STRING EXPRESSION, THE KEYWORD “TO”, AND THEN A 
NUMERIC MATRIX NAME CONSISTING OF A SINGLE LETTER 
IS REQUIRED. EITHER ENTER THE WORD “TO” OR A 
PROPER MATRIX NAME TO CORRECT THE ERROR. 
THE GENERAL FORM OF THE “CHANGE” STATEMENT IS: 
CHANGE STRING-EXPR TO LETTER 
CHANGE STRING-EXPR TO LETTER BIT EXPR 
CHANGE LETTER TO STRING-VAR 
CHANGE LETTER TO STRING-VAR BIT EXPR 


MGHCGEIS 

IN THIS FORM OF THE “CHANGE” INSTRUCTION, A 
NUMERIC ARRAY IS BEING CONVERTED TO STRING. 
FOLLOWING THE NUMERIC ARRAY, THE KEYWORD “TO”, 
AND THEN A STRING VARIABLE NAME ARE REQUIRED. 
EITHER ENTER THE KEYWORD “TO” OR A STRING 
VARIABLE NAME TO CORRECT THE ERROR. 


MG#EARDM 
EACH ARRAY TO BE DEFINED IN A “DIM” STATEMENT 
CONSISTS OF A SINGLE LETTER, OPTIONALLY 
FOLLOWED BY A DOLLAR SIGN ($) FOR STRING 
ARRAYS. THE VECTOR DEFINITION CONSISTS OF 
A LEFT-PAREN, AN INTEGER IN THE RANGE 1—99999, 
AND A RIGHT-PAREN. AN ARRAY DEFINITION 
CONSISTS OF A LEFT-PAREN, AN INTEGER, A COMMA, 
ANOTHER INTEGER, AND A RIGHT-PAREN. THE 
GENERAL FORMAT FOR A DIMENSION STATEMENT IS: 

DIM VECTOR-NAME(INTEGER) 

DIM ARRAY-NAME(INTEGER, INTEGER) 

DIM STRING-NAME(INTEGER)...ETC 
MORE THAN ONE ARRAY MAY BE DECLARED IN A DIM 
STATEMENT, BUT THE SAME NAME CANNOT BE DIMENSIONED 
MORE THAN ONCE IN ANY PROGRAM. 


MG#EITDM 

EITHER THE DIM STATEMENT MUST END HERE, OR 

A COMMA AND ANOTHER ARRAY DEFINITION MUST FOLLOW. 
MORE THAN ONE VECTOR OR ARRAY MAY BE DEFINED IN 
ONE DIM STATEMENT, BUT A NAME MAY NOT APPEAR IN 
MORE THAN ONE DIM PER PROGRAM. 


MGHMATMX 

A MATRIX STATEMENT MUST BEGIN WITH A MATRIX 
NAME, OR THE MATRIX INSTRUCTIONS READ, WRITE, 
INPUT, LINPUT, OR PRINT. 


MG#TIMST 
TIME STATEMENT REQUIRES POSITIVE INTEGER VALUE 
FOR A TIME LIMIT. 


MG#OPMIO 

OPERANDS FOR MATRIX 1/0 STATEMENTS MUST CONSIST OF 
A SINGLE LETTER OPTIONALLY FOLLOWED BY A DOLLAR 
SIGN ($) IN THE CASE OF A STRING MATRIX. FOR A 

MAT LINPUT STATEMENT, A STRING MATRIX NAME IS 
REQUIRED. A MATRIX NAME IS REQUIRED HERE. 





BA178 
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BA184 


BA185 
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MG#MIOST 

MATRIX 1/0 STATEMENTS MAY INPUT OR OUTPUT MORE 
THAN ONE MATRIX IN A SINGLE STATEMENT. EACH 
MATRIX IN THE LIST TO BE PROCESSED MUST BE 
SEPARATED BY COMMAS AND THERE MUST BE NOTHING 
AFTER THE LAST MATRIX IN THE LIST. EITHER END 

THE STATEMENT HERE OR ENTER A COMMA AND ANOTHER 
NAME. 


MG#CMAUS 
A COMMA MUST APPEAR AFTER THE “USING” KEYWORD. 
ENTER A COMMA AND COMPLETE THE STATEMENT. 


MG#MTNMR 
A MATRIX NAME IS REQUIRED FOR THE “MAT PRINT” 
STATEMENT. THIS MAY BE A NUMERIC MATRIX (SINGLE 


“ LETTER), OR A STRING MATRIX (LETTER FOLLOWED BY A 


DOLLAR SIGN). ENTER THE NAME AND COMPLETE THE 
STATEMENT. 


MG#THEST 

THE STATEMENT MUST EITHER END HERE OR A COMMA OR 
SEMICOLON MUST BE TYPED TO CONTINUE THE LIST OF MATRIX 
NAMES. IF MORE THAN ONE MATRIX NAME IS DESIRED 

EACH NAME IN THE LIST MUST BE SEPARATED BY A COMMA 
OR SEMICOLON. 


MGHVARNM 
A VARIABLE NAME HAS BEEN FOUND WHICH INDICATES 
THAT A SCALAR RESULT IS REQUIRED. THIS FORMAT 
OF THE MAT STATEMENT REQUIRES TWO NUMERIC 
VECTORS BE MULTIPLIED TO GIVE A SCALAR RESULT. 
THE FORMAT IS: 

MAT LETTER-NUMBER = VECT-NAME * VECT-NAME 
EXAMPLE: MAT Al=B*C 


MG#LTVSB 

THE LAST VALID SYMBOL FOUND IN THE INPUT LINE 

WAS A MATRIX NAME. THIS MUST BE FOLLOWED BY AN EQUAL 
SIGN, AND THEN EITHER A MATRIX COMPUTATION OR A 
FUNCTION ASSIGNMENT. IF THIS IS TO BE A MATRIX 
COMPUTATION, THEN A NUMERIC MATRIX NAME MUST 
FOLLOW THE EQUAL SIGN; OTHERWISE ONE OF THESE 
FUNCTIONS MUST BE USED: ZER, CON, IDN, INV, 

TRN. 


MG#MIVTM 
IN A “MAT TRN” OR “MAT INV”, THE FUNCTION NAME MUST 
BE FOLLOWED BY A MATRIX NAME WITHIN PARENTHESES. 


MG#HOSTFC 
THE ONLY MATRIX STRING FUNCTION AVAILABLE 
IS NUL$, AND ITS FORMAT IS: 

MAT LETTERS=NUL$ 


MG#OVDSB 
THE ONLY VALID SYMBOLS WHICH MAY FOLLOW THE 
MATRIX NAME HERE ARE +, —, OR *: 

MAT LETTER = LETTER + LETTER 

MAT LETTER = LETTER — LETTER 

MAT LETTER = LETTER * LETTER 














UP-9168 Rev. 1 


SPERRY UNIVAC OS/3 
BASIC 





BA187 


BA188 


BA189 


BA190 


BA191 


BA192 


BA193 


BA194 


HELP Command Message for Syntax Error 


MG#NMTNM 

A NUMERIC MATRIX NAME MUST BE ENTERED HERE. 
THIS CONSISTS OF A SINGLE LETTER, AND MUST BE 
THE LAST SYMBOL IN THE STATEMENT. 


MG#MLINP 

THE VARIABLE LIST FOR A “MAT LINPUT” MUST CONTAIN 
ONLY STRING MATRIX NAMES CONSISTING OF A LETTER 
FOLLOWED BY A DOLLAR SIGN ($). EACH NAME IN THE 
LIST MUST BE SEPARATED BY A COMMA. 


MG#MTREP 

A MATRIX TRIMMER EXPRESSION BEGINS WITH A LEFT-PAREN, 
AND A NUMERIC EXPRESSION. IF THIS TRIMMER IS USED FOR 
A VECTOR, THEN A RIGHT-PAREN MUST TERMINATE THIS 
EXPRESSION. IF THIS 1S TO TRIM AN ARRAY, THEN A COMMA 
AND ANOTHER NUMERIC EXPRESSION MUST PRECEDE THE 
RIGHT-PAREN. TO CORRECT THE ERROR, ENTER EITHER A 
COMMA OR A RIGHT-PAREN AND CONTINUE. 


MG#ADNCH 

THERE ARE ADDITIONAL CHARACTERS ON THIS LINE WHICH 
ARE NOT EXPECTED. THE STATEMENT MUST END HERE. IF THE 
ADDITIONAL CHARACTERS ARE TO BE A COMMENT OR REMARK, 
THEY MUST BE PREFIXED BY AN APOSTROPHE (’). 


MGH#SEQSB 

THE SEQUENCE OF SYMBOLS IN THE EXPRESSION IS NOT 
CORRECT. THE SYMBOL IN ERROR CANNOT FOLLOW THE 
SYMBOL SHOWN ABOVE. FOR EXAMPLE, TWO VARIABLE 
NAMES MAY NOT APPEAR TOGETHER, TWO OPERATORS MAY 
NOT APPEAR TOGETHER (A+/B), A STATEMENT MAY ONLY 
END IN A VARIABLE NAME, OR RIGHT PARENTHESIS, ETC. 


MG#EXPRE 

AN EXPRESSION IS EXPECTED HERE. STRING EXPRESSIONS CAN 
BEGIN WITH STRING LITERALS (QUOTE CLOSED-STRING-CHARS 
QUOTE — “STRING”), OR A STRING VARIABLE NAME (A$,W3$), 
OR A STRING FUNCTION NAME (FNT$,FNA$,ETC). NUMERIC 
EXPRESSIONS CAN BEGIN WITH A NUMBER, A NUMERIC 
VARIABLE, A NUMERIC FUNCTION, A LEFT-PAREN, A UNARY 
MINUS SYMBOL, OR A UNARY PLUS SYMBOL. NUMERIC 
VARIABLE AND FUNCTION ARE CONSTRUCTED THE SAME AS 
STRING VARIABLES AND FUNCTIONS, BUT WITHOUT THE 
DOLLAR SIGN. 


MG#UARMI 
A UNARY MINUS SYMBOL IS NOT ALLOWED AT THIS POINT. AT 
THIS POINT IN THE EXPRESSION, OPERATORS (+, —, *, /, **) 


LEFT-PARENS, OR FUNCTION REFERENCES MAY NOT BE CODED 
HERE. A VARIABLE OR CONSTANT MAY BE CODED HERE. 


MG#VRFCN 
A VARIABLE OR FUNCTION NAME IS NOT PERMITTED HERE. A 
CONSTANT (STRING OR NUMERIC) MAY BE USED. 


BA195 


BA196 


BA197 
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MG#NUMIT 

A NUMERIC ITEM IS EXPECTED HERE. STRING SYMBOLS ARE 
NOT PERMITTED. PERMISSIBLE NUMERIC EXPRESSION SYMBOLS 
ARE: NUMERIC VARIABLE NAMES, NUMERIC FUNCTION NAMES, 
NUMERIC CONSTANTS, OR NUMERIC OPERATORS. 


MG#STRIT 

A STRING ITEM IS EXPECTED HERE. NUMERIC SYMBOLS ARE 

NOT PERMITTED. POSSIBLE STRING EXPRESSION SYMBOLS 

ARE: STRING VARIABLE NAMES, STRING CONSTANTS, STRING 
FUNCTION NAMES, OR THE STRING OPERATOR FOR CONCATENATION 
(&). 


MG#STRCN 

A STRING CONSTANT IS NOT ALLOWED HERE. SYMBOLS WHICH 
MAY BE ALLOWED HERE ARE NUMERIC SYMBOLS, OR STRING 
VARIABLE OR FUNCTION NAMES. 


MG#EDIPL 

THE END OF THE INPUT LINE WAS DETECTED BEFORE A COMPLETE 
STRING CONSTANT COULD BE FOUND. A CLOSING DOUBLE-QUOTE 
MUST BE APPENDED TO COMPLETE THE STRING. STRING 
CONSTANTS CONSIST OF A DOUBLE-QUOTE, FOLLOWED BY A SERIES 
OF CHARACTERS, FOLLOWED BY A DOUBLE-QUOTE. 

IF A DOUBLE-QUOTE IS TO APPEAR IN THE STRING ITSELF, 

IT MUST BE CODED AS CONSECUTIVE DOUBLE-QUOTES (“”). 


MG#FRNCD 

A FUNCTION REFERENCE MAY NOT BE CODED HERE. THE 
EXPRESSION REQUIRED IN THIS INSTANCE MUST BE A SIMPLE 
OR SUBSCRIPTED VARIABLE NAME. NO COMPUTATION IS 
PERMITTED IN THIS TYPE OF EXPRESSION. 


MG#LPNCD 

A LEFT-PAREN MAY NOT BE CODED HERE. THE EXPRESSION 
REQUIRED IN THIS INSTANCE MUST BE A SIMPLE VARIABLE 
OR A SUBSCRIPTED VARIABLE NAME. NO COMPUTATION IS 
PERMITTED IN THIS TYPE OF EXPRESSION. 


MGH#FUNNR 

THIS FUNCTION DOES NOT REQUIRE ANY PARAMETERS BE 
PASSED TO IT. A LEFT-PAREN IS INVALID HERE. REMOVE 
THE PARAMETER LIST AND COMPLETE THE STATEMENT. 


MGHTWOSB 

MORE THAN TWO SUBSCRIPTS HAVE BEEN FOUND IN AN ARRAY 
REFERENCE. VECTORS MAY ONLY HAVE ONE SUBSCRIPT, AND 
ARRAYS MAY HAVE TWO. TO CORRECT THE ERROR, COMPLETE 
THE SUBSCRIPT BY ENTERING A RIGHT-PAREN, THEN 

CONTINUE THE STATEMENT. 


MGHTFCRQ 

THIS FUNCTION REQUIRES THAT PARAMETERS BE PASSED TO IT. 
TO PASS PARAMETERS, ENTER A LEFT-PAREN, THE LIST OF 
PARAMETER EXPRESSIONS SEPARATED BY A COMMA, AND A 
RIGHT-PAREN. FOR EXAMPLE: SIN(A—B),SEGS$(A$, 2, 7). 
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HELP Command Message for Syntax Error 


MG#FCADR BA207 
THIS FUNCTION REQUIRES ADDITIONAL PARAMETERS BE 

PASSED TO IT. ENTER THE ADDITIONAL PARAMETERS, THE 

RIGHT-PAREN, THEN CONTINUE THE STATEMENT. 


MGHOPNAL 

AN OPERATOR (+, —, *, /, ** &) MAY NOT BE CODED HERE. 

THE EXPRESSION REQUIRED IN THIS INSTANCE MUST BE A 

SIMPLE OR SUBSCRIPTED VARIABLE NAME. NO 

COMPUTATION IS PERMITTED IN THIS TYPE OF EXPRESSION. 

MGHUNMPA BA208 
UNMATCHED PARENTHESES HAVE BEEN FOUND IN THIS 

EXPRESSION. THE ENTIRE EXPRESSION WILL NEED TO BE 

SCANNED, AND THE POSITION AND NUMBER OF PARENS 

ADJUSTED ACCORDINGLY. 


MGHEBCOP 
“EBC” OPERAND INVALID. VALID ARGUMENTS FOR THE 
EBC FUNCTION ARE: 


ACK BEL BS CAN CR DCI DC2 DC3 D4 
DEL DLE DS EM ENQ E0T ESC ETB EIX 
FF FS GS HT LF NAK NUL RS _ Si 
SO SOH SOS SP STIX SUB SYN US VI 


OR ANY SINGLE CHARACTER. 


MG#HUARPL 

A UNARY PLUS SYMBOL IS NOT ALLOWED AT THIS POINT. 

AT THIS POINT IN THE EXPRESSION, OPERATORS (+, —, *, /, **), 
LEFT-PARENS, OR FUNCTION REFERENCED ARE NOT PERMITTED. 

A VARIABLE NAME OR CONSTANT MAY BE CODED HERE. 
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